From 725a2e8a8ec141609c4270041859a439d6665535 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 21 Nov 2010 23:00:43 -0600 Subject: test the dist method --- t/03-dist.t | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/t/03-dist.t b/t/03-dist.t index a9555b5..65b08db 100644 --- a/t/03-dist.t +++ b/t/03-dist.t @@ -17,6 +17,7 @@ use lib 't/lib/03'; undef, "no conflict error" ); + is(Foo::Conflicts::Good->dist, 'Foo', "correct dist"); } { @@ -34,6 +35,7 @@ use lib 't/lib/03'; "Conflicts detected for Foo:\n Foo is version 0.02, but must be greater than version 0.03\n Foo::Two is version 0.02, but must be greater than version 0.02\n", "correct conflict error" ); + is(Foo::Conflicts::Bad->dist, 'Foo', "correct dist"); } { @@ -48,6 +50,7 @@ use lib 't/lib/03'; undef, "no conflict error" ); + is(Bar::Conflicts::Good->dist, 'Bar', "correct dist"); } { @@ -65,6 +68,7 @@ use lib 't/lib/03'; "Conflicts detected for Bar:\n Bar is version 0.02, but must be greater than version 0.03\n Bar::Two is version 0.02, but must be greater than version 0.02\n", "correct conflict error" ); + is(Bar::Conflicts::Bad->dist, 'Bar', "correct dist"); } done_testing; -- cgit v1.2.3-54-g00ecf