Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: manual_args
Fetching contributors…

Cannot retrieve contributors at this time

1171 lines (1134 sloc) 20.271 kB
#!./parrot
# Copyright (C) 2001-2010, Parrot Foundation.
=head1 NAME
t/op/string.t - Parrot Strings
=head1 SYNOPSIS
% prove t/op/string.t
=head1 DESCRIPTION
Tests Parrot string registers and operations.
=cut
.sub main :main
.include 'test_more.pir'
plan(24)
test_eq_s_s_ic()
test_eq_sc_s_ic()
test_eq_s_sc_ic()
test_eq_sc_sc_ic()
test_ne_s_s_ic()
test_ne_sc_s_ic()
test_ne_s_sc_ic()
test_ne_sc_sc_ic()
test_lt_s_s_ic()
test_lt_sc_s_ic()
test_lt_s_sc_ic()
test_lt_sc_sc_ic()
test_le_s_s_ic()
test_le_sc_s_ic()
test_le_s_sc_ic()
test_le_sc_sc_ic()
test_gt_s_s_ic()
test_gt_sc_s_ic()
test_gt_s_sc_ic()
test_gt_sc_sc_ic()
test_ge_s_s_ic()
test_ge_sc_s_ic()
test_ge_s_sc_ic()
test_ge_sc_sc_ic()
.end
.sub test_eq_s_s_ic
set $S0, "hello"
set $S1, "hello"
eq $S0, $S1, OK1
branch ERROR
OK1:
set $S0, "hello"
set $S1, "world"
eq $S0, $S1, ERROR
OK2:
set $S0, "world"
set $S1, "hello"
eq $S0, $S1, ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
eq $S0, $S1, ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
eq $S0, $S1, ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
eq $S0, $S1, ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
eq $S0, $S1, ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
eq $S0, $S1, ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
eq $S0, $S1, ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
eq $S0, $S1, ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
eq $S0, $S1, OK11
branch ERROR
OK11:
ok( 1, 'eq_s_s_ic' )
goto END
ERROR:
ok( 0, 'eq_s_s_ic' )
END:
.end
.sub test_eq_sc_s_ic
set $S0, "hello"
eq "hello", $S0, OK1
branch ERROR
OK1:
set $S0, "world"
eq "hello", $S0, ERROR
OK2:
set $S0, "hello"
eq "world", $S0, ERROR
OK3:
set $S0, "hellooo"
eq "hello", $S0, ERROR
OK4:
set $S0, "hello"
eq "hellooo", $S0, ERROR
OK5:
set $S0, "hella"
eq "hello", $S0, ERROR
OK6:
set $S0, "hello"
eq "hella", $S0, ERROR
OK7:
set $S0, "hellooo"
eq "hella", $S0, ERROR
OK8:
set $S0, "hella"
eq "hellooo", $S0, ERROR
OK9:
set $S0, "HeLlO"
eq "hElLo", $S0, ERROR
OK10:
set $S0, "hElLo"
eq "hElLo", $S0, OK11
branch ERROR
OK11:
ok( 1, 'eq_sc_s_ic' )
goto END
ERROR:
ok( 0, 'eq_sc_s_ic' )
END:
.end
.sub test_eq_s_sc_ic
set $S0, "hello"
eq $S0, "hello", OK1
branch ERROR
OK1:
set $S0, "hello"
eq $S0, "world", ERROR
OK2:
set $S0, "world"
eq $S0, "hello", ERROR
OK3:
set $S0, "hello"
eq $S0, "hellooo", ERROR
OK4:
set $S0, "hellooo"
eq $S0, "hello", ERROR
OK5:
set $S0, "hello"
eq $S0, "hella", ERROR
OK6:
set $S0, "hella"
eq $S0, "hello", ERROR
OK7:
set $S0, "hella"
eq $S0, "hellooo", ERROR
OK8:
set $S0, "hellooo"
eq $S0, "hella", ERROR
OK9:
set $S0, "hElLo"
eq $S0, "HeLlO", ERROR
OK10:
set $S0, "hElLo"
eq $S0, "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'eq_s_sc_ic' )
goto END
ERROR:
ok( 0, 'eq_s_sc_ic' )
END:
.end
.sub test_eq_sc_sc_ic
eq "hello", "hello", OK1
branch ERROR
OK1:
eq "hello", "world", ERROR
OK2:
eq "world", "hello", ERROR
OK3:
eq "hello", "hellooo", ERROR
OK4:
eq "hellooo", "hello", ERROR
OK5:
eq "hello", "hella", ERROR
OK6:
eq "hella", "hello", ERROR
OK7:
eq "hella", "hellooo", ERROR
OK8:
eq "hellooo", "hella", ERROR
OK9:
eq "hElLo", "HeLlO", ERROR
OK10:
eq "hElLo", "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'eq_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'eq_sc_sc_ic' )
END:
.end
.sub test_ne_s_s_ic
set $S0, "hello"
set $S1, "hello"
ne $S0, $S1, ERROR
OK1:
set $S0, "hello"
set $S1, "world"
ne $S0, $S1, OK2
branch ERROR
OK2:
set $S0, "world"
set $S1, "hello"
ne $S0, $S1, OK3
branch ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
ne $S0, $S1, OK4
branch ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
ne $S0, $S1, OK5
branch ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
ne $S0, $S1, OK6
branch ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
ne $S0, $S1, OK7
branch ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
ne $S0, $S1, OK8
branch ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
ne $S0, $S1, OK9
branch ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
ne $S0, $S1, OK10
branch ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
ne $S0, $S1, ERROR
OK11:
ok( 1, 'ne_s_s_ic' )
goto END
ERROR:
ok( 0, 'ne_s_s_ic' )
END:
.end
.sub test_ne_sc_s_ic
set $S0, "hello"
ne "hello", $S0, ERROR
OK1:
set $S0, "world"
ne "hello", $S0, OK2
branch ERROR
OK2:
set $S0, "hello"
ne "world", $S0, OK3
branch ERROR
OK3:
set $S0, "hellooo"
ne "hello", $S0, OK4
branch ERROR
OK4:
set $S0, "hello"
ne "hellooo", $S0, OK5
branch ERROR
OK5:
set $S0, "hella"
ne "hello", $S0, OK6
branch ERROR
OK6:
set $S0, "hello"
ne "hella", $S0, OK7
branch ERROR
OK7:
set $S0, "hellooo"
ne "hella", $S0, OK8
branch ERROR
OK8:
set $S0, "hella"
ne "hellooo", $S0, OK9
branch ERROR
OK9:
set $S0, "HeLlO"
ne "hElLo", $S0, OK10
branch ERROR
OK10:
set $S0, "hElLo"
ne "hElLo", $S0, ERROR
OK11:
ok( 1, 'ne_sc_s_ic' )
goto END
ERROR:
ok( 0, 'ne_sc_s_ic' )
END:
.end
.sub test_ne_s_sc_ic
set $S0, "hello"
ne $S0, "hello", ERROR
OK1:
set $S0, "hello"
ne $S0, "world", OK2
branch ERROR
OK2:
set $S0, "world"
ne $S0, "hello", OK3
branch ERROR
OK3:
set $S0, "hello"
ne $S0, "hellooo", OK4
branch ERROR
OK4:
set $S0, "hellooo"
ne $S0, "hello", OK5
branch ERROR
OK5:
set $S0, "hello"
ne $S0, "hella", OK6
branch ERROR
OK6:
set $S0, "hella"
ne $S0, "hello", OK7
branch ERROR
OK7:
set $S0, "hella"
ne $S0, "hellooo", OK8
branch ERROR
OK8:
set $S0, "hellooo"
ne $S0, "hella", OK9
branch ERROR
OK9:
set $S0, "hElLo"
ne $S0, "HeLlO", OK10
branch ERROR
OK10:
set $S0, "hElLo"
ne $S0, "hElLo", ERROR
OK11:
ok( 1, 'ne_s_sc_ic' )
goto END
ERROR:
ok( 0, 'ne_s_sc_ic' )
END:
.end
.sub test_ne_sc_sc_ic
ne "hello", "hello", ERROR
OK1:
ne "hello", "world", OK2
branch ERROR
OK2:
ne "world", "hello", OK3
branch ERROR
OK3:
ne "hello", "hellooo", OK4
branch ERROR
OK4:
ne "hellooo", "hello", OK5
branch ERROR
OK5:
ne "hello", "hella", OK6
branch ERROR
OK6:
ne "hella", "hello", OK7
branch ERROR
OK7:
ne "hella", "hellooo", OK8
branch ERROR
OK8:
ne "hellooo", "hella", OK9
branch ERROR
OK9:
ne "hElLo", "HeLlO", OK10
branch ERROR
OK10:
ne "hElLo", "hElLo", ERROR
OK11:
ok( 1, 'ne_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'ne_sc_sc_ic' )
END:
.end
.sub test_lt_s_s_ic
set $S0, "hello"
set $S1, "hello"
lt $S0, $S1, ERROR
OK1:
set $S0, "hello"
set $S1, "world"
lt $S0, $S1, OK2
branch ERROR
OK2:
set $S0, "world"
set $S1, "hello"
lt $S0, $S1, ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
lt $S0, $S1, OK4
branch ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
lt $S0, $S1, ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
lt $S0, $S1, ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
lt $S0, $S1, OK7
branch ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
lt $S0, $S1, OK8
branch ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
lt $S0, $S1, ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
lt $S0, $S1, ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
lt $S0, $S1, ERROR
OK11:
ok( 1, 'lt_s_s_ic' )
goto END
ERROR:
ok( 0, 'lt_s_s_ic' )
END:
.end
.sub test_lt_sc_s_ic
set $S0, "hello"
lt "hello", $S0, ERROR
OK1:
set $S0, "world"
lt "hello", $S0, OK2
branch ERROR
OK2:
set $S0, "hello"
lt "world", $S0, ERROR
OK3:
set $S0, "hellooo"
lt "hello", $S0, OK4
branch ERROR
OK4:
set $S0, "hello"
lt "hellooo", $S0, ERROR
OK5:
set $S0, "hella"
lt "hello", $S0, ERROR
OK6:
set $S0, "hello"
lt "hella", $S0, OK7
branch ERROR
OK7:
set $S0, "hellooo"
lt "hella", $S0, OK8
branch ERROR
OK8:
set $S0, "hella"
lt "hellooo", $S0, ERROR
OK9:
set $S0, "HeLlO"
lt "hElLo", $S0, ERROR
OK10:
set $S0, "hElLo"
lt "hElLo", $S0, ERROR
OK11:
ok( 1, 'lt_sc_s_ic' )
goto END
ERROR:
ok( 0, 'lt_sc_s_ic' )
END:
.end
.sub test_lt_s_sc_ic
set $S0, "hello"
lt $S0, "hello", ERROR
OK1:
set $S0, "hello"
lt $S0, "world", OK2
branch ERROR
OK2:
set $S0, "world"
lt $S0, "hello", ERROR
OK3:
set $S0, "hello"
lt $S0, "hellooo", OK4
branch ERROR
OK4:
set $S0, "hellooo"
lt $S0, "hello", ERROR
OK5:
set $S0, "hello"
lt $S0, "hella", ERROR
OK6:
set $S0, "hella"
lt $S0, "hello", OK7
branch ERROR
OK7:
set $S0, "hella"
lt $S0, "hellooo", OK8
branch ERROR
OK8:
set $S0, "hellooo"
lt $S0, "hella", ERROR
OK9:
set $S0, "hElLo"
lt $S0, "HeLlO", ERROR
OK10:
set $S0, "hElLo"
lt $S0, "hElLo", ERROR
OK11:
ok( 1, 'lt_s_sc_ic' )
goto END
ERROR:
ok( 0, 'lt_s_sc_ic' )
END:
.end
.sub test_lt_sc_sc_ic
lt "hello", "hello", ERROR
OK1:
lt "hello", "world", OK2
branch ERROR
OK2:
lt "world", "hello", ERROR
OK3:
lt "hello", "hellooo", OK4
branch ERROR
OK4:
lt "hellooo", "hello", ERROR
OK5:
lt "hello", "hella", ERROR
OK6:
lt "hella", "hello", OK7
branch ERROR
OK7:
lt "hella", "hellooo", OK8
branch ERROR
OK8:
lt "hellooo", "hella", ERROR
OK9:
lt "hElLo", "HeLlO", ERROR
OK10:
lt "hElLo", "hElLo", ERROR
OK11:
ok( 1, 'lt_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'lt_sc_sc_ic' )
END:
.end
.sub test_le_s_s_ic
set $S0, "hello"
set $S1, "hello"
le $S0, $S1, OK1
branch ERROR
OK1:
set $S0, "hello"
set $S1, "world"
le $S0, $S1, OK2
branch ERROR
OK2:
set $S0, "world"
set $S1, "hello"
le $S0, $S1, ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
le $S0, $S1, OK4
branch ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
le $S0, $S1, ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
le $S0, $S1, ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
le $S0, $S1, OK7
branch ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
le $S0, $S1, OK8
branch ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
le $S0, $S1, ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
le $S0, $S1, ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
le $S0, $S1, OK11
branch ERROR
OK11:
ok( 1, 'le_s_s_ic' )
goto END
ERROR:
ok( 0, 'le_s_s_ic' )
END:
.end
.sub test_le_sc_s_ic
set $S0, "hello"
le "hello", $S0, OK1
branch ERROR
OK1:
set $S0, "world"
le "hello", $S0, OK2
branch ERROR
OK2:
set $S0, "hello"
le "world", $S0, ERROR
OK3:
set $S0, "hellooo"
le "hello", $S0, OK4
branch ERROR
OK4:
set $S0, "hello"
le "hellooo", $S0, ERROR
OK5:
set $S0, "hella"
le "hello", $S0, ERROR
OK6:
set $S0, "hello"
le "hella", $S0, OK7
branch ERROR
OK7:
set $S0, "hellooo"
le "hella", $S0, OK8
branch ERROR
OK8:
set $S0, "hella"
le "hellooo", $S0, ERROR
OK9:
set $S0, "HeLlO"
le "hElLo", $S0, ERROR
OK10:
set $S0, "hElLo"
le "hElLo", $S0, OK11
branch ERROR
OK11:
ok( 1, 'le_sc_s_ic' )
goto END
ERROR:
ok( 0, 'le_sc_s_ic' )
END:
.end
.sub test_le_s_sc_ic
set $S0, "hello"
le $S0, "hello", OK1
branch ERROR
OK1:
set $S0, "hello"
le $S0, "world", OK2
branch ERROR
OK2:
set $S0, "world"
le $S0, "hello", ERROR
OK3:
set $S0, "hello"
le $S0, "hellooo", OK4
branch ERROR
OK4:
set $S0, "hellooo"
le $S0, "hello", ERROR
OK5:
set $S0, "hello"
le $S0, "hella", ERROR
OK6:
set $S0, "hella"
le $S0, "hello", OK7
branch ERROR
OK7:
set $S0, "hella"
le $S0, "hellooo", OK8
branch ERROR
OK8:
set $S0, "hellooo"
le $S0, "hella", ERROR
OK9:
set $S0, "hElLo"
le $S0, "HeLlO", ERROR
OK10:
set $S0, "hElLo"
le $S0, "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'le_s_sc_ic' )
goto END
ERROR:
ok( 0, 'le_s_sc_ic' )
END:
.end
.sub test_le_sc_sc_ic
le "hello", "hello", OK1
branch ERROR
OK1:
le "hello", "world", OK2
branch ERROR
OK2:
le "world", "hello", ERROR
OK3:
le "hello", "hellooo", OK4
branch ERROR
OK4:
le "hellooo", "hello", ERROR
OK5:
le "hello", "hella", ERROR
OK6:
le "hella", "hello", OK7
branch ERROR
OK7:
le "hella", "hellooo", OK8
branch ERROR
OK8:
le "hellooo", "hella", ERROR
OK9:
le "hElLo", "HeLlO", ERROR
OK10:
le "hElLo", "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'le_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'le_sc_sc_ic' )
END:
.end
.sub test_gt_s_s_ic
set $S0, "hello"
set $S1, "hello"
gt $S0, $S1, ERROR
OK1:
set $S0, "hello"
set $S1, "world"
gt $S0, $S1, ERROR
OK2:
set $S0, "world"
set $S1, "hello"
gt $S0, $S1, OK3
branch ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
gt $S0, $S1, ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
gt $S0, $S1, OK5
branch ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
gt $S0, $S1, OK6
branch ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
gt $S0, $S1, ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
gt $S0, $S1, ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
gt $S0, $S1, OK9
branch ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
gt $S0, $S1, OK10
branch ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
gt $S0, $S1, ERROR
OK11:
ok( 1, 'gt_s_s_ic' )
goto END
ERROR:
ok( 0, 'gt_s_s_ic' )
END:
.end
.sub test_gt_sc_s_ic
set $S0, "hello"
gt "hello", $S0, ERROR
OK1:
set $S0, "world"
gt "hello", $S0, ERROR
OK2:
set $S0, "hello"
gt "world", $S0, OK3
branch ERROR
OK3:
set $S0, "hellooo"
gt "hello", $S0, ERROR
OK4:
set $S0, "hello"
gt "hellooo", $S0, OK5
branch ERROR
OK5:
set $S0, "hella"
gt "hello", $S0, OK6
branch ERROR
OK6:
set $S0, "hello"
gt "hella", $S0, ERROR
OK7:
set $S0, "hellooo"
gt "hella", $S0, ERROR
OK8:
set $S0, "hella"
gt "hellooo", $S0, OK9
branch ERROR
OK9:
set $S0, "HeLlO"
gt "hElLo", $S0, OK10
branch ERROR
OK10:
set $S0, "hElLo"
gt "hElLo", $S0, ERROR
OK11:
ok( 1, 'gt_sc_s_ic' )
goto END
ERROR:
ok( 0, 'gt_sc_s_ic' )
END:
.end
.sub test_gt_s_sc_ic
set $S0, "hello"
gt $S0, "hello", ERROR
OK1:
set $S0, "hello"
gt $S0, "world", ERROR
OK2:
set $S0, "world"
gt $S0, "hello", OK3
branch ERROR
OK3:
set $S0, "hello"
gt $S0, "hellooo", ERROR
OK4:
set $S0, "hellooo"
gt $S0, "hello", OK5
branch ERROR
OK5:
set $S0, "hello"
gt $S0, "hella", OK6
branch ERROR
OK6:
set $S0, "hella"
gt $S0, "hello", ERROR
OK7:
set $S0, "hella"
gt $S0, "hellooo", ERROR
OK8:
set $S0, "hellooo"
gt $S0, "hella", OK9
branch ERROR
OK9:
set $S0, "hElLo"
gt $S0, "HeLlO", OK10
branch ERROR
OK10:
set $S0, "hElLo"
gt $S0, "hElLo", ERROR
OK11:
ok( 1, 'gt_s_sc_ic' )
goto END
ERROR:
ok( 0, 'gt_s_sc_ic' )
END:
.end
.sub test_gt_sc_sc_ic
gt "hello", "hello", ERROR
OK1:
gt "hello", "world", ERROR
OK2:
gt "world", "hello", OK3
branch ERROR
OK3:
gt "hello", "hellooo", ERROR
OK4:
gt "hellooo", "hello", OK5
branch ERROR
OK5:
gt "hello", "hella", OK6
branch ERROR
OK6:
gt "hella", "hello", ERROR
OK7:
gt "hella", "hellooo", ERROR
OK8:
gt "hellooo", "hella", OK9
branch ERROR
OK9:
gt "hElLo", "HeLlO", OK10
branch ERROR
OK10:
gt "hElLo", "hElLo", ERROR
OK11:
ok( 1, 'gt_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'gt_sc_sc_ic' )
END:
.end
.sub test_ge_s_s_ic
set $S0, "hello"
set $S1, "hello"
ge $S0, $S1, OK1
branch ERROR
OK1:
set $S0, "hello"
set $S1, "world"
ge $S0, $S1, ERROR
OK2:
set $S0, "world"
set $S1, "hello"
ge $S0, $S1, OK3
branch ERROR
OK3:
set $S0, "hello"
set $S1, "hellooo"
ge $S0, $S1, ERROR
OK4:
set $S0, "hellooo"
set $S1, "hello"
ge $S0, $S1, OK5
branch ERROR
OK5:
set $S0, "hello"
set $S1, "hella"
ge $S0, $S1, OK6
branch ERROR
OK6:
set $S0, "hella"
set $S1, "hello"
ge $S0, $S1, ERROR
OK7:
set $S0, "hella"
set $S1, "hellooo"
ge $S0, $S1, ERROR
OK8:
set $S0, "hellooo"
set $S1, "hella"
ge $S0, $S1, OK9
branch ERROR
OK9:
set $S0, "hElLo"
set $S1, "HeLlO"
ge $S0, $S1, OK10
branch ERROR
OK10:
set $S0, "hElLo"
set $S1, "hElLo"
ge $S0, $S1, OK11
branch ERROR
OK11:
ok( 1, 'ge_s_s_ic' )
goto END
ERROR:
ok( 0, 'ge_s_s_ic' )
END:
.end
.sub test_ge_sc_s_ic
set $S0, "hello"
ge "hello", $S0, OK1
branch ERROR
OK1:
set $S0, "world"
ge "hello", $S0, ERROR
OK2:
set $S0, "hello"
ge "world", $S0, OK3
branch ERROR
OK3:
set $S0, "hellooo"
ge "hello", $S0, ERROR
OK4:
set $S0, "hello"
ge "hellooo", $S0, OK5
branch ERROR
OK5:
set $S0, "hella"
ge "hello", $S0, OK6
branch ERROR
OK6:
set $S0, "hello"
ge "hella", $S0, ERROR
OK7:
set $S0, "hellooo"
ge "hella", $S0, ERROR
OK8:
set $S0, "hella"
ge "hellooo", $S0, OK9
branch ERROR
OK9:
set $S0, "HeLlO"
ge "hElLo", $S0, OK10
branch ERROR
OK10:
set $S0, "hElLo"
ge "hElLo", $S0, OK11
branch ERROR
OK11:
ok( 1, 'ge_sc_s_ic' )
goto END
ERROR:
ok( 0, 'ge_sc_s_ic' )
END:
.end
.sub test_ge_s_sc_ic
set $S0, "hello"
ge $S0, "hello", OK1
branch ERROR
OK1:
set $S0, "hello"
ge $S0, "world", ERROR
OK2:
set $S0, "world"
ge $S0, "hello", OK3
branch ERROR
OK3:
set $S0, "hello"
ge $S0, "hellooo", ERROR
OK4:
set $S0, "hellooo"
ge $S0, "hello", OK5
branch ERROR
OK5:
set $S0, "hello"
ge $S0, "hella", OK6
branch ERROR
OK6:
set $S0, "hella"
ge $S0, "hello", ERROR
OK7:
set $S0, "hella"
ge $S0, "hellooo", ERROR
OK8:
set $S0, "hellooo"
ge $S0, "hella", OK9
branch ERROR
OK9:
set $S0, "hElLo"
ge $S0, "HeLlO", OK10
branch ERROR
OK10:
set $S0, "hElLo"
ge $S0, "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'ge_s_sc_ic' )
goto END
ERROR:
ok( 0, 'ge_s_sc_ic' )
END:
.end
.sub test_ge_sc_sc_ic
ge "hello", "hello", OK1
branch ERROR
OK1:
ge "hello", "world", ERROR
OK2:
ge "world", "hello", OK3
branch ERROR
OK3:
ge "hello", "hellooo", ERROR
OK4:
ge "hellooo", "hello", OK5
branch ERROR
OK5:
ge "hello", "hella", OK6
branch ERROR
OK6:
ge "hella", "hello", ERROR
OK7:
ge "hella", "hellooo", ERROR
OK8:
ge "hellooo", "hella", OK9
branch ERROR
OK9:
ge "hElLo", "HeLlO", OK10
branch ERROR
OK10:
ge "hElLo", "hElLo", OK11
branch ERROR
OK11:
ok( 1, 'ge_sc_sc_ic' )
goto END
ERROR:
ok( 0, 'ge_sc_sc_ic' )
END:
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Jump to Line
Something went wrong with that request. Please try again.