From 9cc8c0a89e3984a04758240a76940bb70f49f256 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 19 Dec 2011 14:06:16 -0600 Subject: remove test numbers --- t/01-basic.t | 70 -------------------------------------------------------- t/01/Bar.pm | 4 ---- t/01/Baz.pm | 4 ---- t/01/Foo.pm | 4 ---- t/02-version.t | 10 -------- t/02/Foo.pm | 3 --- t/03-base.t | 26 --------------------- t/04-base2.t | 18 --------------- t/04/Bar.pm | 7 ------ t/04/Foo.pm | 9 -------- t/base.t | 26 +++++++++++++++++++++ t/base2.t | 18 +++++++++++++++ t/base2/Bar.pm | 7 ++++++ t/base2/Foo.pm | 9 ++++++++ t/basic.t | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ t/basic/Bar.pm | 4 ++++ t/basic/Baz.pm | 4 ++++ t/basic/Foo.pm | 4 ++++ t/version.t | 10 ++++++++ t/version/Foo.pm | 3 +++ 20 files changed, 155 insertions(+), 155 deletions(-) delete mode 100644 t/01-basic.t delete mode 100644 t/01/Bar.pm delete mode 100644 t/01/Baz.pm delete mode 100644 t/01/Foo.pm delete mode 100644 t/02-version.t delete mode 100644 t/02/Foo.pm delete mode 100644 t/03-base.t delete mode 100644 t/04-base2.t delete mode 100644 t/04/Bar.pm delete mode 100644 t/04/Foo.pm create mode 100644 t/base.t create mode 100644 t/base2.t create mode 100644 t/base2/Bar.pm create mode 100644 t/base2/Foo.pm create mode 100644 t/basic.t create mode 100644 t/basic/Bar.pm create mode 100644 t/basic/Baz.pm create mode 100644 t/basic/Foo.pm create mode 100644 t/version.t create mode 100644 t/version/Foo.pm diff --git a/t/01-basic.t b/t/01-basic.t deleted file mode 100644 index a921d1e..0000000 --- a/t/01-basic.t +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use lib 't/01'; -use Test::More; - -use circular::require (); - -circular::require->unimport; - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Foo'); - is($warnings, "Circular require detected: Foo.pm (from Baz)\nCircular require detected: Baz.pm (from Bar)\n", "correct warnings"); - clear(); -} - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Bar'); - is($warnings, "Circular require detected: Baz.pm (from Foo)\nCircular require detected: Bar.pm (from Baz)\n", "correct warnings"); - clear(); -} - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Baz'); - is($warnings, "Circular require detected: Baz.pm (from Foo)\n", "correct warnings"); - clear(); -} - -circular::require->import; - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Foo'); - is($warnings, undef, "correct warnings"); - clear(); -} - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Bar'); - is($warnings, undef, "correct warnings"); - clear(); -} - -{ - my $warnings; - local $SIG{__WARN__} = sub { $warnings .= $_[0] }; - use_ok('Baz'); - is($warnings, undef, "correct warnings"); - clear(); -} - -sub clear { - for (qw(Foo Bar Baz)) { - no strict 'refs'; - delete $::{$_}; - delete ${$_ . '::'}{quux}; - delete $INC{"$_.pm"}; - } -} - -done_testing; diff --git a/t/01/Bar.pm b/t/01/Bar.pm deleted file mode 100644 index f7d7f72..0000000 --- a/t/01/Bar.pm +++ /dev/null @@ -1,4 +0,0 @@ -package Bar; -use Baz; -sub quux { } -1; diff --git a/t/01/Baz.pm b/t/01/Baz.pm deleted file mode 100644 index c70c7aa..0000000 --- a/t/01/Baz.pm +++ /dev/null @@ -1,4 +0,0 @@ -package Baz; -require Foo; -require Bar; -1; diff --git a/t/01/Foo.pm b/t/01/Foo.pm deleted file mode 100644 index 5e5d6c3..0000000 --- a/t/01/Foo.pm +++ /dev/null @@ -1,4 +0,0 @@ -package Foo; -use Baz; -sub quux { } -1; diff --git a/t/02-version.t b/t/02-version.t deleted file mode 100644 index ac3567b..0000000 --- a/t/02-version.t +++ /dev/null @@ -1,10 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use lib 't/02'; -use Test::More; - -no circular::require; -use_ok('Foo'); - -done_testing; diff --git a/t/02/Foo.pm b/t/02/Foo.pm deleted file mode 100644 index 67de8a7..0000000 --- a/t/02/Foo.pm +++ /dev/null @@ -1,3 +0,0 @@ -package Foo; -use 5.008001; -1; diff --git a/t/03-base.t b/t/03-base.t deleted file mode 100644 index c0e032d..0000000 --- a/t/03-base.t +++ /dev/null @@ -1,26 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; - -my $success = eval <bar, "bar", "Polymorphism" ) } - "bar() method available on Foo"; - -throws_ok { base->import( 'BadWolf' ) } - qr|Base class package "BadWolf" is empty|, "use base 'Some Bad File' should throw an exception"; - -done_testing; diff --git a/t/04/Bar.pm b/t/04/Bar.pm deleted file mode 100644 index 207dc68..0000000 --- a/t/04/Bar.pm +++ /dev/null @@ -1,7 +0,0 @@ -package Bar; -use strict; -use warnings; - -sub bar { "bar" } - -1; diff --git a/t/04/Foo.pm b/t/04/Foo.pm deleted file mode 100644 index cfb1bb4..0000000 --- a/t/04/Foo.pm +++ /dev/null @@ -1,9 +0,0 @@ -package Foo; -use strict; -use warnings; - -use base 'Bar'; - -sub foo { "foo" } - -1; diff --git a/t/base.t b/t/base.t new file mode 100644 index 0000000..c0e032d --- /dev/null +++ b/t/base.t @@ -0,0 +1,26 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +my $success = eval <bar, "bar", "Polymorphism" ) } + "bar() method available on Foo"; + +throws_ok { base->import( 'BadWolf' ) } + qr|Base class package "BadWolf" is empty|, "use base 'Some Bad File' should throw an exception"; + +done_testing; diff --git a/t/base2/Bar.pm b/t/base2/Bar.pm new file mode 100644 index 0000000..207dc68 --- /dev/null +++ b/t/base2/Bar.pm @@ -0,0 +1,7 @@ +package Bar; +use strict; +use warnings; + +sub bar { "bar" } + +1; diff --git a/t/base2/Foo.pm b/t/base2/Foo.pm new file mode 100644 index 0000000..cfb1bb4 --- /dev/null +++ b/t/base2/Foo.pm @@ -0,0 +1,9 @@ +package Foo; +use strict; +use warnings; + +use base 'Bar'; + +sub foo { "foo" } + +1; diff --git a/t/basic.t b/t/basic.t new file mode 100644 index 0000000..62d92f5 --- /dev/null +++ b/t/basic.t @@ -0,0 +1,70 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/basic'; +use Test::More; + +use circular::require (); + +circular::require->unimport; + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Foo'); + is($warnings, "Circular require detected: Foo.pm (from Baz)\nCircular require detected: Baz.pm (from Bar)\n", "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Bar'); + is($warnings, "Circular require detected: Baz.pm (from Foo)\nCircular require detected: Bar.pm (from Baz)\n", "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Baz'); + is($warnings, "Circular require detected: Baz.pm (from Foo)\n", "correct warnings"); + clear(); +} + +circular::require->import; + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Foo'); + is($warnings, undef, "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Bar'); + is($warnings, undef, "correct warnings"); + clear(); +} + +{ + my $warnings; + local $SIG{__WARN__} = sub { $warnings .= $_[0] }; + use_ok('Baz'); + is($warnings, undef, "correct warnings"); + clear(); +} + +sub clear { + for (qw(Foo Bar Baz)) { + no strict 'refs'; + delete $::{$_}; + delete ${$_ . '::'}{quux}; + delete $INC{"$_.pm"}; + } +} + +done_testing; diff --git a/t/basic/Bar.pm b/t/basic/Bar.pm new file mode 100644 index 0000000..f7d7f72 --- /dev/null +++ b/t/basic/Bar.pm @@ -0,0 +1,4 @@ +package Bar; +use Baz; +sub quux { } +1; diff --git a/t/basic/Baz.pm b/t/basic/Baz.pm new file mode 100644 index 0000000..c70c7aa --- /dev/null +++ b/t/basic/Baz.pm @@ -0,0 +1,4 @@ +package Baz; +require Foo; +require Bar; +1; diff --git a/t/basic/Foo.pm b/t/basic/Foo.pm new file mode 100644 index 0000000..5e5d6c3 --- /dev/null +++ b/t/basic/Foo.pm @@ -0,0 +1,4 @@ +package Foo; +use Baz; +sub quux { } +1; diff --git a/t/version.t b/t/version.t new file mode 100644 index 0000000..ad5d2ea --- /dev/null +++ b/t/version.t @@ -0,0 +1,10 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/version'; +use Test::More; + +no circular::require; +use_ok('Foo'); + +done_testing; diff --git a/t/version/Foo.pm b/t/version/Foo.pm new file mode 100644 index 0000000..67de8a7 --- /dev/null +++ b/t/version/Foo.pm @@ -0,0 +1,3 @@ +package Foo; +use 5.008001; +1; -- cgit v1.2.3