[svn:parrot] r40947 - trunk/t/op

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Sep  3 06:48:34 2009
New Revision: 40947
URL: https://trac.parrot.org/parrot/changeset/40947

Log:
[t] add a TODO for clone null string

Modified:
   trunk/t/op/string.t

Modified: trunk/t/op/string.t
==============================================================================
--- trunk/t/op/string.t	Thu Sep  3 05:30:53 2009	(r40946)
+++ trunk/t/op/string.t	Thu Sep  3 06:48:34 2009	(r40947)
@@ -1,5 +1,5 @@
 #!perl
-# Copyright (C) 2001-2008, Parrot Foundation.
+# Copyright (C) 2001-2009, Parrot Foundation.
 # $Id$
 
 use strict;
@@ -7,7 +7,7 @@
 use lib qw( . lib ../lib ../../lib );
 
 use Test::More;
-use Parrot::Test tests => 166;
+use Parrot::Test tests => 167;
 use Parrot::Config;
 
 =head1 NAME
@@ -55,6 +55,17 @@
 Bar
 OUTPUT
 
+TODO: {
+
+local $TODO = 'clone null string broken, TT#964';
+
+pasm_output_is( <<'CODE', <<'OUTPUT', 'clone null' );
+    null S0
+    clone S1, S0
+CODE
+OUTPUT
+}
+
 pasm_output_is( <<'CODE', '4', 'length_i_s' );
     set I4, 0
     set S4, "JAPH"