Ticket #1666: immediate_code_as_const.diff

t/pmc/sub.t

@@ -9 +9 @@
 use Test::More;
 use Parrot::Test::Util 'create_tempfile';
 
-use Parrot::Test tests => 70;
+use Parrot::Test tests => 69;
 use Parrot::Config;
 
 =head1 NAME
@@ -990 +990 @@
 
 unlink( $l1_pbc, $l2_pbc );
 
-pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const" );
-.loadlib 'trans_ops' # for atan
-.sub make_pi :immediate :anon
-    $N0 = atan 1.0, 1.0
-    $N0 *= 4
-    $P0 = new ['Float']
-    $P0 = $N0
-    .return ($P0)
-.end
-
-.sub main :main
-    .const 'Sub' pi = "make_pi"
-    print pi
-    print "\n"
-.end
-CODE
-3.14159265358979
-OUTPUT
-
 pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const - obj" );
 .sub make_obj :immediate :anon
     .local pmc cl, o

t/dynoplibs/trans.t

@@ -8 +8 @@
 
 =head1 SYNOPSIS
 
-        % prove t/op/trans.t
+    % prove t/op/trans.t
 
 =head1 DESCRIPTION
 
@@ -23 +23 @@
     .local num epsilon
     epsilon = _epsilon()
 
-    plan(69)
+    plan(70)
 
     test_sin_n(epsilon)
     test_sin_i(epsilon)
@@ -45 +45 @@
     test_cosh_i(epsilon)
     integer_overflow_with_pow()
     e_raised_pi_time_i__plus_1_equal_0()
+    test_immediate_code_const(epsilon)
 .end
 
 .sub _pi
@@ -306 +307 @@
     .sprintf_is( "%.3f%+.3fi", c2, "0.000+0.000i" )
 .end
 
+.sub make_pi :immediate :anon
+    $N0 = atan 1.0, 1.0
+    $N0 *= 4
+    $P0 = new ['Float']
+    $P0 = $N0
+    .return ($P0)
+.end
+
+.sub test_immediate_code_const
+    .param num epsilon
+    .const 'Sub' pi = "make_pi"
+    $N1 = _pi()
+    is(pi, $N1, "immediate code as const", epsilon)
+.end
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100