1 Commits

Author SHA1 Message Date
Christoph Berg
1b6b73085d Imported Debian patch 1.04-3 2017-09-15 16:00:59 +02:00
13 changed files with 282 additions and 40 deletions

71
.emacs.desktop Normal file
View File

@@ -0,0 +1,71 @@
;; -*- coding: emacs-mule; -*-
;; --------------------------------------------------------------------------
;; Desktop File for Emacs
;; --------------------------------------------------------------------------
;; Created Fri Feb 18 13:17:58 2005
;; Emacs version 21.2.1
;; Global section:
(setq desktop-missing-file-warning nil)
(setq tags-file-name nil)
(setq tags-table-list nil)
(setq search-ring '("sub default" "sub constructor" "constructor" "constructor method" "sub getne" "current" "getnext" "geto" "getobject" "getnextobjectid"))
(setq regexp-search-ring nil)
(setq register-alist nil)
;; Buffer section:
(desktop-create-buffer 205
"/home/jjordan/src/perl/Test-MockClass/Makefile.PL"
"Makefile.PL"
'perl-mode
'(nil)
1
'(nil nil)
nil
nil
nil)
(desktop-create-buffer 205
"/home/jjordan/src/perl/Perl-SemanticNet/t/01_SemanticNet_Node.t"
"01_SemanticNet_Node.t"
'cperl-mode
'(nil)
441
'(nil nil)
nil
nil
nil)
(desktop-create-buffer 205
"/home/jjordan/src/perl/Test-MockClass/t/00_MockClass.t"
"00_MockClass.t"
'cperl-mode
'(nil)
2858
'(1 t)
nil
nil
nil)
(desktop-create-buffer 205
"/home/jjordan/src/perl/Test-MockClass/lib/Test/MockClass.pm"
"MockClass.pm"
'cperl-mode
'(nil)
12990
'(17434 t)
nil
nil
nil)
(desktop-create-buffer 205
"/tmp/cvsdz8zNY"
"cvsdz8zNY"
'fundamental-mode
nil
14
'(nil nil)
nil
nil
nil)

View File

@@ -1,3 +1,4 @@
.emacs.desktop
lib/Test/MockClass/MyClass.pm
lib/Test/MockClass.pm
Makefile.PL

View File

@@ -1,26 +1,10 @@
--- #YAML:1.0
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Test-MockClass
version: 1.05
abstract: A class to create mock classes and object for testing purposes
author:
- Jeremiah Jordan <jjordan@perlreason.com>
license: unknown
distribution_type: module
configure_requires:
ExtUtils::MakeMaker: 0
build_requires:
ExtUtils::MakeMaker: 0
version: 1.04
version_from: lib/Test/MockClass.pm
installdirs: site
requires:
Hook::WrapSub: 0.03
Scalar::Util: 1.14
Task::Weaken: 0
Test::SimpleUnit: 1.21
Tie::Watch: 1.1
no_index:
directory:
- t
- inc
generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17

View File

@@ -1,5 +1,66 @@
#!/usr/bin/perl
use ExtUtils::MakeMaker;
#
# Perl Makefile for Test-Mockclass
# $Id: Makefile.PL,v 1.1.1.1 2005/02/16 19:46:23 phaedrus Exp $
#
# Invocation:
# $ perl Makefile.PL # interactive behaviour
# $ perl Makefile.PL --defaultdeps # accept default value on prompts
# $ perl Makefile.PL --checkdeps # check only, no Makefile produced
# $ perl Makefile.PL --skipdeps # ignores all dependencies
# $ perl Makefile.PL --testonly # don't write installation targets
#
# Then, to build:
# $ make [all|test|install] # install dependencies first
# $ make checkdeps # same as the --checkdeps above
# $ make installdeps # install dependencies only
#
# ExtUtils::AutoInstall Bootstrap Code, version 7.
BEGIN{my$p='ExtUtils::AutoInstall';my$v=0.45;$p->VERSION||0>=$v
or+eval"use $p $v;1"or+do{my$e=$ENV{PERL_EXTUTILS_AUTOINSTALL};
(!defined($e)||$e!~m/--(?:default|skip|testonly)/and-t STDIN or
eval"use ExtUtils::MakeMaker;WriteMakefile(PREREQ_PM=>{'$p',$v}
);1"and exit)and print"==> $p $v required. Install it from CP".
"AN? [Y/n] "and<STDIN>!~/^n/i and print"*** Installing $p\n"and
do{if (eval '$>' and lc(`sudo -V`) =~ /version/){system('sudo',
$^X,"-MCPANPLUS","-e","CPANPLUS::install $p");eval"use $p $v;1"
||system('sudo', $^X, "-MCPAN", "-e", "CPAN::install $p")}eval{
require CPANPLUS;CPANPLUS::install$p};eval"use $p $v;1"or eval{
require CPAN;CPAN::install$p};eval"use $p $v;1"||die"*** Please
manually install $p $v from cpan.org first...\n"}}}
use File::Find;
# the above handlers must be declared before the 'use' statement
use ExtUtils::AutoInstall (
# required AutoInstall version
-version => '0.40',
# core modules; may also be 'all'
-core => {
Hook::WrapSub => 0.03,
Scalar::Util => 1.14,
Test::SimpleUnit => 1.21,
Tie::Watch => 1.1,
},
);
# Build a custom list of modules to install. This is because the parser module
# generation happens because it's a target, so it doesn't exist before the
# PM list is generated
my %pm = ();
File::Find::find(
sub {
if (/\.pm$/s) {
my $name = "$File::Find::dir/$_";
print "Adding: $_ => $name\n";
($pm{$name} = $name) =~ s{lib/}{\$(INST_LIBDIR)/}
}
}, "lib" );
WriteMakefile(
NAME => 'MockClass',
@@ -7,13 +68,7 @@ WriteMakefile(
VERSION_FROM => 'lib/Test/MockClass.pm',
AUTHOR => 'Jeremiah Jordan <jjordan@perlreason.com>',
ABSTRACT => 'A class to create mock classes and object for testing purposes',
PREREQ_PM => {
'Hook::WrapSub' => 0.03,
'Scalar::Util' => 1.14,
'Task::Weaken' => 0,
'Test::SimpleUnit' => 1.21,
'Tie::Watch' => 1.1,
},
PM => \%pm,
dist => {
TARFLAGS => 'cvf',
CI => "cvs commit",

38
debian/changelog vendored Normal file
View File

@@ -0,0 +1,38 @@
libtest-mockclass-perl (1.04-3) unstable; urgency=low
[ Salvatore Bonaccorso ]
* debian/control: Changed: Replace versioned (build-)dependency on
perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
permitted by Debian Policy 3.8.3).
[ Christoph Berg ]
* Remove myself from Uploaders.
* Build-Depend on libextutils-autoinstall-perl as required by
dh_auto_configure.
[ Ryan Niebur ]
* Update ryan52's email address
-- Christoph Berg <myon@debian.org> Wed, 09 Dec 2009 13:35:28 +0100
libtest-mockclass-perl (1.04-2) unstable; urgency=low
[ Ryan Niebur ]
* add missing (build-)dep on libhook-wrapsub-perl (Closes: #536649)
* Add myself to Uploaders
* s/^A // on short description
* fix long description to not use first person
* patch to fix the POD errors
* add 'License-Alias: Perl' to d/copyright
[ gregor herrmann ]
* debian/copyright: put the actual copyright holder into the Copyright
field.
-- Ryan Niebur <ryanryan52@gmail.com> Sat, 11 Jul 2009 22:32:27 -0700
libtest-mockclass-perl (1.04-1) unstable; urgency=low
* Initial Release.
-- Christoph Berg <myon@debian.org> Fri, 3 Jul 2009 14:36:05 +0200

1
debian/compat vendored Normal file
View File

@@ -0,0 +1 @@
7

20
debian/control vendored Normal file
View File

@@ -0,0 +1,20 @@
Source: libtest-mockclass-perl
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
Build-Depends-Indep: perl, libextutils-autoinstall-perl, libtest-simpleunit-perl, perl-tk, libhook-wrapsub-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>
Uploaders: Ryan Niebur <ryan@debian.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Test-MockClass/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtest-mockclass-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libtest-mockclass-perl/
Package: libtest-mockclass-perl
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, perl-tk, libhook-wrapsub-perl
Description: module to provide mock classes and mock objects for testing
Test::MockClass provides a simple interface for creating mock classes
and mock objects with mock methods for testing purposes. It also
provides a simple mechanism for tracking the interactions to the
mocked objects.

35
debian/copyright vendored Normal file
View File

@@ -0,0 +1,35 @@
Format-Specification:
http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
Upstream-Maintainer: Jeremiah Jordan <jjordan@perlreason.com>
Upstream-Source: http://search.cpan.org/dist/Test-MockClass/
Upstream-Name: Test-MockClass
Comment:
Initial packaging of this module was kindly funded by Dembach Goo Informatik
on behalf of Allianz24.
Files: *
Copyright: 2002, 2003, 2004, 2005 perl Reason, LLC. All Rights Reserved.
Inspired by Test::MockObject by chromatic, and by Test::Unit::Mockup (ruby)
by Michael Granger. Both of whom were probably inspired by other people
(J-unit, Xunit types maybe?) which all goes back to that sUnit guy. Thanks
to Stevan Little for the constructive criticism.
License-Alias: Perl
License: Artistic | GPL-1+
Files: debian/*
Copyright: 2009, Christoph Berg <myon@debian.org>
License: Artistic | GPL-1+
License: Artistic
This program is free software; you can redistribute it and/or modify
it under the terms of the Artistic License, which comes with Perl.
On Debian GNU/Linux systems, the complete text of the Artistic License
can be found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
On Debian GNU/Linux systems, the complete text of the GNU General
Public License can be found in `/usr/share/common-licenses/GPL'

30
debian/patches/fix-pod vendored Normal file
View File

@@ -0,0 +1,30 @@
fix POD syntax problems
--- a/lib/Test/MockClass.pm
+++ b/lib/Test/MockClass.pm
@@ -3,7 +3,7 @@
=head1 NAME
- Test::MockClass - A module to provide mock classes and mock objects for testing
+Test::MockClass - A module to provide mock classes and mock objects for testing
=head1 SYNOPSIS
@@ -244,12 +244,16 @@
=head1 SEE ALSO
+=over 4
+
=item Alternatives: L<Test::MockObject>, L<Test::MockMethod>
=item Testing systems: L<Test::Simple>, L<Test::More>, L<Test::Builder>, L<Test::Harness>
=item xUnit testing: L<Test::SimpleUnit>, L<Test::Unit>, L<Test::Class>
+=back
+
=head1 AUTHOR
Jeremiah Jordan E<lt>jjordan@perlreason.comE<gt>

1
debian/patches/series vendored Normal file
View File

@@ -0,0 +1 @@
fix-pod

4
debian/rules vendored Executable file
View File

@@ -0,0 +1,4 @@
#!/usr/bin/make -f
%:
dh --with quilt $@

2
debian/watch vendored Normal file
View File

@@ -0,0 +1,2 @@
version=3
http://search.cpan.org/dist/Test-MockClass/ .*/Test-MockClass-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$

View File

@@ -279,8 +279,8 @@ BEGIN {
### Versioning stuff and custom includes
use vars qw{$VERSION $RCSID};
$VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
$RCSID = q$Id: MockClass.pm,v 1.5 2005/02/18 21:16:20 phaedrus Exp $;
$VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
$RCSID = q$Id: MockClass.pm,v 1.4 2005/02/18 21:16:20 phaedrus Exp $;
use Carp;
use Hook::WrapSub qw{wrap_subs unwrap_subs};
use Tie::Watch;