From: John Napiorkowski <jjnapiork@cpan.org>
Date: Tue, 28 Oct 2008 06:28:31 +0000 (+0000)
Subject: do not know where all these dollar signs came from :)
X-Git-Tag: 0.03~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe1fd33cceed6665ece5705e5ce0642a23659752;p=gitmo%2FMooseX-Types-Structured.git

do not know where all these dollar signs came from :)
---

diff --git a/Changes b/Changes
index 7892a3d..2934742 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for MooseX-Types-Structured
 
 0.02    28 October 2008
+        - cleared up some typos in the test suite
         - Fixed some POD formatting issues, mostly some dumb tabs I ended up
           with when I switched editors.  Added a bit more documentation
         
diff --git a/t/06-api.t b/t/06-api.t
index 31b6030..38b5ce3 100644
--- a/t/06-api.t
+++ b/t/06-api.t
@@ -1,8 +1,7 @@
 BEGIN {
 	use strict;
 	use warnings;
-	use Test::More tests=>44;
-	use Test::Exception;
+	use Test::More tests=>56;
 }
 
 use MooseX::Types::Structured qw(Dict Tuple);
@@ -59,19 +58,19 @@ ok (!MyTuple2->equals(MyTuple3), 'MyTuple2 == MyTuple3');
 ok (!MyTuple3->equals(MyTuple2), 'MyTuple3 == MyTuple2');
 ok (!MyTuple3->equals(MyTuple1), 'MyTuple3 == MyTuple1');
 
-ok ( MyDict1->equals(MyDict2), '$MyDict1 == $MyDict2');
-ok ( $MyDict2->equals($MyDict1), '$MyDict2 == $MyDict1');
-ok (!$MyDict1->equals($MyDict3), '$MyDict1 == $MyDict3');
-ok (!$MyDict2->equals($MyDict3), '$MyDict2 == $MyDict3');
-ok (!$MyDict3->equals($MyDict2), '$MyDict3 == $MyDict2');
-ok (!$MyDict3->equals($MyDict1), '$MyDict3 == $MyDict1');
-
-ok ( $MyTuple1->equals($MyTuple2), '$MyTuple1 == $MyTuple2');
-ok ( $MyTuple2->equals($MyTuple1), '$MyTuple2 == $MyTuple1');
-ok (!$MyTuple1->equals($MyTuple3), '$MyTuple1 == $MyTuple3');
-ok (!$MyTuple2->equals($MyTuple3), '$MyTuple2 == $MyTuple3');
-ok (!$MyTuple3->equals($MyTuple2), '$MyTuple3 == $MyTuple2');
-ok (!$MyTuple3->equals($MyTuple1), '$MyTuple3 == $MyTuple1');
+ok ( MyDict1->equals(MyDict2), 'MyDict1 == MyDict2');
+ok ( MyDict2->equals(MyDict1), 'MyDict2 == MyDict1');
+ok (!MyDict1->equals(MyDict3), 'MyDict1 == MyDict3');
+ok (!MyDict2->equals(MyDict3), 'MyDict2 == MyDict3');
+ok (!MyDict3->equals(MyDict2), 'MyDict3 == MyDict2');
+ok (!MyDict3->equals(MyDict1), 'MyDict3 == MyDict1');
+
+ok ( MyTuple1->equals(MyTuple2), 'MyTuple1 == MyTuple2');
+ok ( MyTuple2->equals(MyTuple1), 'MyTuple2 == MyTuple1');
+ok (!MyTuple1->equals(MyTuple3), 'MyTuple1 == MyTuple3');
+ok (!MyTuple2->equals(MyTuple3), 'MyTuple2 == MyTuple3');
+ok (!MyTuple3->equals(MyTuple2), 'MyTuple3 == MyTuple2');
+ok (!MyTuple3->equals(MyTuple1), 'MyTuple3 == MyTuple1');
 
 ## Test is_a_type_of