[svn:parrot] r41502 - trunk/t/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sat Sep 26 21:55:09 2009
New Revision: 41502
URL: https://trac.parrot.org/parrot/changeset/41502

Log:
[t] cover Null.is_same

Modified:
   trunk/t/pmc/null.t

Modified: trunk/t/pmc/null.t
==============================================================================
--- trunk/t/pmc/null.t	Sat Sep 26 21:18:47 2009	(r41501)
+++ trunk/t/pmc/null.t	Sat Sep 26 21:55:09 2009	(r41502)
@@ -17,12 +17,21 @@
 =cut
 
 .sub main :main
+    .local int i
     .include 'test_more.pir'
 
-    plan(1)
+    plan(3)
 
     new $P0, ['Null']
     ok(1, 'Instantiated a Null PMC')
+
+    new $P1, ['Null']
+    i = issame $P0, $P1
+    ok (i, 'Null is same as Null')
+
+    new $P2, ['Undef']
+    i = issame $P0, $P2
+    nok(i, 'Null is not same as not Null')
 .end
 
 # Local Variables: