Compare commits
5 Commits
upstream/1
...
master
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
1960185f6a | ||
|
|
895dd03103 | ||
|
|
563d8fdc61 | ||
|
|
78b234ca9e | ||
|
|
1b6b73085d |
@@ -1,71 +0,0 @@
|
|||||||
;; -*- 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)
|
|
||||||
|
|
||||||
1
MANIFEST
1
MANIFEST
@@ -1,4 +1,3 @@
|
|||||||
.emacs.desktop
|
|
||||||
lib/Test/MockClass/MyClass.pm
|
lib/Test/MockClass/MyClass.pm
|
||||||
lib/Test/MockClass.pm
|
lib/Test/MockClass.pm
|
||||||
Makefile.PL
|
Makefile.PL
|
||||||
|
|||||||
32
META.yml
32
META.yml
@@ -1,10 +1,26 @@
|
|||||||
# http://module-build.sourceforge.net/META-spec.html
|
--- #YAML:1.0
|
||||||
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
|
|
||||||
name: Test-MockClass
|
name: Test-MockClass
|
||||||
version: 1.04
|
version: 1.05
|
||||||
version_from: lib/Test/MockClass.pm
|
abstract: A class to create mock classes and object for testing purposes
|
||||||
installdirs: site
|
author:
|
||||||
requires:
|
- Jeremiah Jordan <jjordan@perlreason.com>
|
||||||
|
license: unknown
|
||||||
distribution_type: module
|
distribution_type: module
|
||||||
generated_by: ExtUtils::MakeMaker version 6.17
|
configure_requires:
|
||||||
|
ExtUtils::MakeMaker: 0
|
||||||
|
build_requires:
|
||||||
|
ExtUtils::MakeMaker: 0
|
||||||
|
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
|
||||||
|
|||||||
71
Makefile.PL
71
Makefile.PL
@@ -1,66 +1,5 @@
|
|||||||
#!/usr/bin/perl
|
#!/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(
|
WriteMakefile(
|
||||||
NAME => 'MockClass',
|
NAME => 'MockClass',
|
||||||
@@ -68,7 +7,13 @@ WriteMakefile(
|
|||||||
VERSION_FROM => 'lib/Test/MockClass.pm',
|
VERSION_FROM => 'lib/Test/MockClass.pm',
|
||||||
AUTHOR => 'Jeremiah Jordan <jjordan@perlreason.com>',
|
AUTHOR => 'Jeremiah Jordan <jjordan@perlreason.com>',
|
||||||
ABSTRACT => 'A class to create mock classes and object for testing purposes',
|
ABSTRACT => 'A class to create mock classes and object for testing purposes',
|
||||||
PM => \%pm,
|
PREREQ_PM => {
|
||||||
|
'Hook::WrapSub' => 0.03,
|
||||||
|
'Scalar::Util' => 1.14,
|
||||||
|
'Task::Weaken' => 0,
|
||||||
|
'Test::SimpleUnit' => 1.21,
|
||||||
|
'Tie::Watch' => 1.1,
|
||||||
|
},
|
||||||
dist => {
|
dist => {
|
||||||
TARFLAGS => 'cvf',
|
TARFLAGS => 'cvf',
|
||||||
CI => "cvs commit",
|
CI => "cvs commit",
|
||||||
|
|||||||
38
debian/changelog
vendored
Normal file
38
debian/changelog
vendored
Normal file
@@ -0,0 +1,38 @@
|
|||||||
|
libtest-mockclass-perl (1.05-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
1
debian/compat
vendored
Normal file
@@ -0,0 +1 @@
|
|||||||
|
7
|
||||||
20
debian/control
vendored
Normal file
20
debian/control
vendored
Normal 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
35
debian/copyright
vendored
Normal 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
30
debian/patches/fix-pod
vendored
Normal 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
1
debian/patches/series
vendored
Normal file
@@ -0,0 +1 @@
|
|||||||
|
fix-pod
|
||||||
4
debian/rules
vendored
Executable file
4
debian/rules
vendored
Executable file
@@ -0,0 +1,4 @@
|
|||||||
|
#!/usr/bin/make -f
|
||||||
|
|
||||||
|
%:
|
||||||
|
dh --with quilt $@
|
||||||
1
debian/source/format
vendored
Normal file
1
debian/source/format
vendored
Normal file
@@ -0,0 +1 @@
|
|||||||
|
3.0 (quilt)
|
||||||
2
debian/watch
vendored
Normal file
2
debian/watch
vendored
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
version=3
|
||||||
|
http://search.cpan.org/dist/Test-MockClass/ .*/Test-MockClass-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$
|
||||||
@@ -279,8 +279,8 @@ BEGIN {
|
|||||||
### Versioning stuff and custom includes
|
### Versioning stuff and custom includes
|
||||||
use vars qw{$VERSION $RCSID};
|
use vars qw{$VERSION $RCSID};
|
||||||
|
|
||||||
$VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
|
$VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
|
||||||
$RCSID = q$Id: MockClass.pm,v 1.4 2005/02/18 21:16:20 phaedrus Exp $;
|
$RCSID = q$Id: MockClass.pm,v 1.5 2005/02/18 21:16:20 phaedrus Exp $;
|
||||||
use Carp;
|
use Carp;
|
||||||
use Hook::WrapSub qw{wrap_subs unwrap_subs};
|
use Hook::WrapSub qw{wrap_subs unwrap_subs};
|
||||||
use Tie::Watch;
|
use Tie::Watch;
|
||||||
|
|||||||
Reference in New Issue
Block a user