--- libtest-unit-perl-0.25.orig/debian/patches/10_examples.dpatch +++ libtest-unit-perl-0.25/debian/patches/10_examples.dpatch @@ -0,0 +1,181 @@ +#! /bin/sh /usr/share/dpatch/dpatch-run +## 10_examples.dpatch by > +## +## DP: Add some simple examples how to write test cases. + +@DPATCH@ +diff -urNad libtest-unit-perl-0.25~/examples/procedural-adding-suites-example.pl libtest-unit-perl-0.25/examples/procedural-adding-suites-example.pl +--- libtest-unit-perl-0.25~/examples/procedural-adding-suites-example.pl 1970-01-01 01:00:00.000000000 +0100 ++++ libtest-unit-perl-0.25/examples/procedural-adding-suites-example.pl 2006-06-09 22:50:47.000000000 +0200 +@@ -0,0 +1,72 @@ ++# -------------------------------------------------- ++package Foo; ++ ++use Test::Unit; ++ ++use constant DEBUG => 0; ++ ++# code to be tested will be somewhere around here ++ ++# define tests, set_up and tear_down ++ ++sub test_foo_ok_1 { ++ assert(23 == 23); ++} ++ ++sub test_foo_ok_2 { ++ assert(42 == 42); ++} ++ ++sub set_up { ++ print "hello world\n" if DEBUG; ++} ++ ++sub tear_down { ++ print "leaving world again\n" if DEBUG; ++} ++ ++# -------------------------------------------------- ++package Bar; ++ ++use Test::Unit; ++ ++use constant DEBUG => 0; ++ ++# code to be tested will be somewhere around here ++ ++# define tests, set_up and tear_down ++ ++sub test_bar_ok_1 { ++ assert(23 == 23); ++} ++ ++sub test_bar_ok_2 { ++ assert(42 == 42); ++} ++ ++sub set_up { ++ print "hello world\n" if DEBUG; ++} ++ ++sub tear_down { ++ print "leaving world again\n" if DEBUG; ++} ++ ++# -------------------------------------------------- ++package FooBar; ++ ++use Test::Unit; ++ ++create_suite(); ++create_suite("Foo"); ++create_suite("Bar"); ++ ++add_suite("Foo"); # add Foo to this package ++add_suite("Bar"); # add Bar to this package ++ ++print "\n--- Testing FooBar ---\n"; ++run_suite(); ++ ++add_suite("Foo", "Bar"); # add Foo to Bar ++print "\n--- Testing Bar with Foo added to it ---\n"; ++run_suite("Bar"); +diff -urNad libtest-unit-perl-0.25~/examples/procedural-another-package-example.pl libtest-unit-perl-0.25/examples/procedural-another-package-example.pl +--- libtest-unit-perl-0.25~/examples/procedural-another-package-example.pl 1970-01-01 01:00:00.000000000 +0100 ++++ libtest-unit-perl-0.25/examples/procedural-another-package-example.pl 2006-06-09 22:50:47.000000000 +0200 +@@ -0,0 +1,31 @@ ++package Foo; ++use Test::Unit; ++ ++use constant DEBUG => 0; ++ ++# code to be tested will be somewhere around here ++ ++# define tests, set_up and tear_down ++ ++sub test_ok_1 { ++ assert(23 == 23); ++} ++ ++sub test_ok_2 { ++ assert(42 == 42); ++} ++ ++sub set_up { ++ print "hello world\n" if DEBUG; ++} ++ ++sub tear_down { ++ print "leaving world again\n" if DEBUG; ++} ++ ++# and run them ++ ++package Bar; ++use Test::Unit; ++create_suite("Foo"); ++run_suite("Foo"); +diff -urNad libtest-unit-perl-0.25~/examples/procedural-fail-example.pl libtest-unit-perl-0.25/examples/procedural-fail-example.pl +--- libtest-unit-perl-0.25~/examples/procedural-fail-example.pl 1970-01-01 01:00:00.000000000 +0100 ++++ libtest-unit-perl-0.25/examples/procedural-fail-example.pl 2006-06-09 22:50:47.000000000 +0200 +@@ -0,0 +1,28 @@ ++use Test::Unit; ++ ++use constant DEBUG => 0; ++ ++# code to be tested will be somewhere around here ++ ++# define tests, set_up and tear_down ++ ++sub test_ok { ++ assert(23 == 23); ++} ++ ++sub test_fail { ++ assert("born" =~ /loose/, "Born to lose ..."); ++} ++ ++sub set_up { ++ print "hello world\n" if DEBUG; ++} ++ ++sub tear_down { ++ print "leaving world again\n" if DEBUG; ++} ++ ++# and run them ++ ++create_suite(); ++run_suite(); +diff -urNad libtest-unit-perl-0.25~/examples/procedural-ok-example.pl libtest-unit-perl-0.25/examples/procedural-ok-example.pl +--- libtest-unit-perl-0.25~/examples/procedural-ok-example.pl 1970-01-01 01:00:00.000000000 +0100 ++++ libtest-unit-perl-0.25/examples/procedural-ok-example.pl 2006-06-09 22:50:47.000000000 +0200 +@@ -0,0 +1,28 @@ ++use Test::Unit; ++ ++use constant DEBUG => 0; ++ ++# code to be tested will be somewhere around here ++ ++# define tests, set_up and tear_down ++ ++sub test_ok_1 { ++ assert(23 == 23); ++} ++ ++sub test_ok_2 { ++ assert(42 == 42); ++} ++ ++sub set_up { ++ print "hello world\n" if DEBUG; ++} ++ ++sub tear_down { ++ print "leaving world again\n" if DEBUG; ++} ++ ++# and run them ++ ++create_suite(); ++run_suite(); --- libtest-unit-perl-0.25.orig/debian/patches/00list +++ libtest-unit-perl-0.25/debian/patches/00list @@ -0,0 +1 @@ +10_examples --- libtest-unit-perl-0.25.orig/debian/patches/Makefile +++ libtest-unit-perl-0.25/debian/patches/Makefile @@ -0,0 +1,4 @@ + +.PHONY: 00list +00list: $(wildcard *.dpatch) + ls -1 $^ | sed -ne 's,\.dpatch,,p' >| $@ --- libtest-unit-perl-0.25.orig/debian/control +++ libtest-unit-perl-0.25/debian/control @@ -0,0 +1,23 @@ +Source: libtest-unit-perl +Section: perl +Priority: optional +Maintainer: Debian Perl Group +Uploaders: Andreas Fester , Gunnar Wolf +Build-Depends: debhelper (>> 4.1), dpatch +Build-Depends-Indep: perl, libdevel-symdump-perl, liberror-perl, libclass-inner-perl +Standards-Version: 3.7.2 + +Package: libtest-unit-perl +Architecture: all +Depends: ${perl:Depends}, libdevel-symdump-perl, liberror-perl, libclass-inner-perl +Suggests: perl-tk +Description: a unit testing framework for Perl + Test::Unit::* is a sophisticated unit testing framework for Perl + that is derived from the JUnit testing framework for Java by Kent + Beck and Erich Gamma. + . + While this framework is originally intended to support unit + testing in an object-oriented development paradigm (with support + for inheritance of tests etc.), Test::Unit::Procedural is intended + to provide a simpler interface to the framework that is more + suitable for use in a scripting style environment. --- libtest-unit-perl-0.25.orig/debian/compat +++ libtest-unit-perl-0.25/debian/compat @@ -0,0 +1 @@ +4 --- libtest-unit-perl-0.25.orig/debian/watch +++ libtest-unit-perl-0.25/debian/watch @@ -0,0 +1,2 @@ +version=2 +http://www.cpan.org/modules/by-module/Test/Test-Unit-([\d\.]+)\.tar\.gz --- libtest-unit-perl-0.25.orig/debian/changelog +++ libtest-unit-perl-0.25/debian/changelog @@ -0,0 +1,49 @@ +libtest-unit-perl (0.25-1) unstable; urgency=low + + [ Andreas Fester ] + * New Maintainer + * Re-added package with new upstream version (Closes: #386317) + * Added dpatch framework + * Converted patch for sample test cases to dpatch + + [ Gunnar Wolf ] + * Added debian/watch file + + -- Gunnar Wolf Wed, 13 Sep 2006 17:58:54 -0500 + +libtest-unit-perl (0.24-2) unstable; urgency=low + + * QA Upload + * Changed Maintainer to Debian QA Group + + -- Stephen Quinney Thu, 17 Feb 2005 21:02:57 +0000 + +libtest-unit-perl (0.24-1.1) unstable; urgency=low + + * Corrected missing dependencies (Closes: #197445) + * Non-Maintainer Upload + + -- Gunnar Wolf Fri, 16 Jan 2004 14:27:56 -0600 + +libtest-unit-perl (0.24-1) unstable; urgency=low + + * New maintainer; all previous changes included in CVS, + Closes: #157510, #157657 + * New upstream release, + Closes: #187817 + + -- Stephen Zander Mon, 26 May 2003 21:44:05 -0700 + +libtest-unit-perl (0.14-1.1) unstable; urgency=low + + * Non-Maintainer Upload (BSP 2002-11). + * Now Build the .deb in binary-indep target (closes: bug#157510). + * Updated copyright file (closes: bug#157657). + + -- Aurelien Jarno Fri, 22 Nov 2002 23:39:31 +0100 + +libtest-unit-perl (0.14-1) unstable; urgency=low + + * Initial Release. (closes: Bug#118031) + + -- Doug Porter Fri, 2 Nov 2001 13:38:33 -0500 --- libtest-unit-perl-0.25.orig/debian/copyright +++ libtest-unit-perl-0.25/debian/copyright @@ -0,0 +1,80 @@ +$Debian: libtest-unit-perl/debian/copyright,v 1.1 2001/11/01 20:41:14 dsp Exp $ + +This package was debianized by Doug Porter on +Thu, 1 Nov 2001 15:32:03 -0500. + +It was downloaded from: +http://prdownloads.sourceforge.net/perlunit/ + +Upstream Author: Christian Lemburg + +Copyright (c) 2000, 2001 Christian Lemburg, . + +# PerlUnit was originally written as a port of Kent Beck and Erich +# Gamma's xUnit testing framework by Christian Lemburg and Brian +# Ewins, and is now maintained by Adam Spiers and the rest of the +# PerlUnit team. +# +# The following is an alphabetical list of all the people who've +# contributed code and effort to making PerlUnit what it is today. +# Where possible we have included their Sourceforge usernames and +# preferred email addresses. +# +# The use of this database for anything other than PerlUnit +# development is strictly forbidden. (Passive distribution with the +# PerlUnit source code package is naturally allowed) + +Adam Spiers adamspiers +Brian Ewins ba22a +Cayte Linder cayte +Christian Lemburg clemburg +David Esposito davide +J.E. Fritz jefritz +Kevin Connor wallisalviar +Matthew Astley mca1001 (was mca-gdl) +Michael Schwern/Test::More project for the deep structure comparison routines +Piers Cawley pdcawley +Zhon Johansen zhon + + + +As far as copyright years go (as if anyone cares), this may serve as a +vague starting guide for who put together the bulk of the project: + + 2000 ba22a, clemburg + 2001 clemburg, pdcawley + 2002 adamspiers, pdcawley + +Where specific files in the project have been contributed by one +person and that person has claimed the copyright, I have left their +authorship. + +The rest of the files have moved over to a more boilerplate style +crediting the PerlUnit Development Team and referring to the +Test::Unit docs and this file. This is simply for maintenance sanity. + + + + +All rights reserved. This program is free software; you can +redistribute it and/or modify it under the same terms as Perl itself: + +------------------------------------------------------------------------------ + Perl copyright: +------------------------------------------------------------------------------ + Copyright 1989-2001, Larry Wall All rights reserved. + + This program is free software; you can redistribute it and/or modify + it under the terms of either: + + a) the GNU General Public License as published by the Free Software + Foundation; either version 1, or (at your option) any later + version, or + + b) the "Artistic License" which comes with Perl. + +------------------------------------------------------------------------------ + +On Debian GNU/Linux systems, the complete text of the GNU General Public +License can be found in `/usr/share/common-licenses/GPL' and the Artistic +Licence in `/usr/share/common-licenses/Artistic'. --- libtest-unit-perl-0.25.orig/debian/docs +++ libtest-unit-perl-0.25/debian/docs @@ -0,0 +1 @@ +README --- libtest-unit-perl-0.25.orig/debian/rules +++ libtest-unit-perl-0.25/debian/rules @@ -0,0 +1,67 @@ +#! /usr/bin/make -f +# -*-makefile-*- +# debian/rules file for libtest-unit-perl + +include /usr/share/dpatch/dpatch.make + +PACKAGE := $(shell dh_listpackages) + +ifndef PERL +PERL = /usr/bin/perl +endif + +TMP := $(CURDIR)/debian/$(PACKAGE) + +build: patch-stamp build-stamp +build-stamp: + dh_testdir + + $(PERL) Makefile.PL INSTALLDIRS=vendor + $(MAKE) OPTIMIZE="-O2 -g -Wall" + + touch $@ + +clean-patched: + dh_testdir + dh_testroot + + [ ! -f Makefile ] || $(MAKE) distclean + dh_clean build-stamp install-stamp + +clean: clean-patched unpatch + +install: install-stamp +install-stamp: build-stamp + dh_testdir + dh_testroot + + dh_clean -k + + $(MAKE) install PREFIX=$(TMP)/usr + chmod u+x $(TMP)/usr/share/perl5/Test/TestRunner.pl + chmod u+x $(TMP)/usr/share/perl5/Test/TkTestRunner.pl + -rmdir --ignore-fail-on-non-empty -p $(TMP)/usr/lib/perl5 + + touch $@ + +binary-arch: +# We have nothing to do by default. + +binary-indep: build install + dh_testdir + dh_testroot + + dh_installdocs + dh_installexamples examples/*.pl + dh_installchangelogs Changes + + dh_perl + dh_compress + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install configure