Leopold Toetsch wrote:
cvsuser 04/11/19 08:28:06
Modified: imcc/t/imcpasm opt0.t optc.t pcc.t
imcc/t/syn bsr.t
Log:
replace invoke P1 in imcc tests
Revision Changes Path
1.7 +2 -2 parrot/imcc/t/imcpasm/opt0.t
[snip]
- invoke P1/
+ returncc/
Ever since this commit, I've been seeing the following:
imcc/t/imcpasm/opt0.t 2 512 6 2 33.33% 3 6
imcc/t/imcpasm/optc.t 1 256 6 1 16.67% 1
Can this either be fixed or skipped? More details below:
$ perl -Ilib -Iimcc imcc/t/imcpasm/opt0.t
1..6
ok 1 - add_n_i_n
ok 2 - sub_n_ic_n
not ok 3 - sub_n_i_n
# Failed test (imcc/t/imcpasm/opt0.t at line 31)
# '_test:
# set N30, I0
# sub N0, N30, N1
# set N30, I0
# div N0, N30, N1
# null I0
# null I3
# invoke P1
# '
# doesn't match '/_test:
# set N(\d+), I0
# sub N0, N\1, N1
# set N\1, I0
# div N0, N\1, N1
# null I0
# null I3
# returncc/
# '
ok 4 - added return - end
ok 5 - added return - exit
not ok 6 - added return - nil
# Failed test (imcc/t/imcpasm/opt0.t at line 72)
# got: '_test:
# noop
# null I0
# null I3
# invoke P1
# '
# expected: '_test:
# noop
# null I0
# null I3
# returncc
# '
# Looks like you failed 2 tests of 6.
$ perl -Ilib -Iimcc imcc/t/imcpasm/optc.t 2>&1 | more
1..6
not ok 1 - in P param
# Failed test (imcc/t/imcpasm/optc.t at line 11)
# '_main:
# set P17, P1
# new P30, 35 # .PerlUndef
# set P30, 42
# set_p_pc P16, foo
# @pcc_sub_call_0:
# set P5, P30
# set I0, 1
# null I1
# null I2
# set I3, 1
# null I4
# set P0, P16
# invokecc
# set P1, P17
# noop
# end
# foo:
# set P30, P5
# print P30
# null I0
# null I3
# invoke P1
# '
# doesn't match '/_main:
# set P\d+, P1
# new (P\d+), \d+ # \.PerlUndef
# set \1, 42
# set_p_pc (P\d+), foo
# @pcc_sub_call_\d:
# set P5, \1
# set I0, 1
# null I1
# null I2
# set I3, 1
# null I4
# set P0, \2
# invokecc
# set P1, P\d+
# noop
# end
# foo:
# set (P\d+), P5
# print \3
# null I0
# null I3
# returncc/
# '
ok 2 # skip PCC changes
ok 3 # skip PCC changes
ok 4 # skip PCC changes
ok 5 # skip PCC changes
ok 6 # skip PCC changes
# Looks like you failed 1 tests of 6.
