added some docs and fixed minor POD formatting issues

[gitmo/MooseX-Types-Structured.git] / t / 06-api.t

diff --git a/t/06-api.t b/t/06-api.t
index aae8933..31b6030 100644 (file)
--- a/t/06-api.t
+++ b/t/06-api.t
@@ -59,6 +59,20 @@ 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
 
 ok ( MyDict1->is_a_type_of(Dict), 'MyDict1 is_a_type_of Dict');