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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Mon Aug 23 06:46:52 2010
New Revision: 48608
URL: https://trac.parrot.org/parrot/changeset/48608

Log:
test Exception is_equal

Modified:
   trunk/t/pmc/exception.t

Modified: trunk/t/pmc/exception.t
==============================================================================
--- trunk/t/pmc/exception.t	Mon Aug 23 01:25:03 2010	(r48607)
+++ trunk/t/pmc/exception.t	Mon Aug 23 06:46:52 2010	(r48608)
@@ -20,7 +20,7 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan(21)
+    plan(22)
     test_bool()
     test_int()
     test_attrs()
@@ -182,6 +182,10 @@
     ex = new ['Exception']
     ex['type'] = .EXCEPTION_SYNTAX_ERROR
     exclone = clone ex
+
+    result = iseq ex, exclone
+    is(result, 1, 'cloned Exception is equal to original')
+
     ehguard = new ['ExceptionHandler']
     set_label ehguard, catchall
     push_eh ehguard