Ticket #1666: immediate_code_as_const.diff

File immediate_code_as_const.diff, 1.9 KB (added by jkeenan, 4 years ago)

patch for problem in t/pmc/sub.t only

  • t/pmc/sub.t

     
    99use Test::More; 
    1010use Parrot::Test::Util 'create_tempfile'; 
    1111 
    12 use Parrot::Test tests => 70; 
     12use Parrot::Test tests => 69; 
    1313use Parrot::Config; 
    1414 
    1515=head1 NAME 
     
    990990 
    991991unlink( $l1_pbc, $l2_pbc ); 
    992992 
    993 pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const" ); 
    994 .loadlib 'trans_ops' # for atan 
    995 .sub make_pi :immediate :anon 
    996     $N0 = atan 1.0, 1.0 
    997     $N0 *= 4 
    998     $P0 = new ['Float'] 
    999     $P0 = $N0 
    1000     .return ($P0) 
    1001 .end 
    1002  
    1003 .sub main :main 
    1004     .const 'Sub' pi = "make_pi" 
    1005     print pi 
    1006     print "\n" 
    1007 .end 
    1008 CODE 
    1009 3.14159265358979 
    1010 OUTPUT 
    1011  
    1012993pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const - obj" ); 
    1013994.sub make_obj :immediate :anon 
    1014995    .local pmc cl, o 
  • t/dynoplibs/trans.t

     
    88 
    99=head1 SYNOPSIS 
    1010 
    11         % prove t/op/trans.t 
     11    % prove t/op/trans.t 
    1212 
    1313=head1 DESCRIPTION 
    1414 
     
    2323    .local num epsilon 
    2424    epsilon = _epsilon() 
    2525 
    26     plan(69) 
     26    plan(70) 
    2727 
    2828    test_sin_n(epsilon) 
    2929    test_sin_i(epsilon) 
     
    4545    test_cosh_i(epsilon) 
    4646    integer_overflow_with_pow() 
    4747    e_raised_pi_time_i__plus_1_equal_0() 
     48    test_immediate_code_const(epsilon) 
    4849.end 
    4950 
    5051.sub _pi 
     
    306307    .sprintf_is( "%.3f%+.3fi", c2, "0.000+0.000i" ) 
    307308.end 
    308309 
     310.sub make_pi :immediate :anon 
     311    $N0 = atan 1.0, 1.0 
     312    $N0 *= 4 
     313    $P0 = new ['Float'] 
     314    $P0 = $N0 
     315    .return ($P0) 
     316.end 
     317 
     318.sub test_immediate_code_const 
     319    .param num epsilon 
     320    .const 'Sub' pi = "make_pi" 
     321    $N1 = _pi() 
     322    is(pi, $N1, "immediate code as const", epsilon) 
     323.end 
     324 
    309325# Local Variables: 
    310326#   mode: pir 
    311327#   fill-column: 100