t/op/string_cmp.t

   1 #! parrot
   2 # Copyright (C) 2001-2009, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/op/string.t - Parrot Strings
   8
   9 =head1 SYNOPSIS
  10
  11      % prove t/op/string.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests Parrot string registers and operations.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(24)
  23
  24     test_eq_s_s_ic()
  25     test_eq_sc_s_ic()
  26     test_eq_s_sc_ic()
  27     test_eq_sc_sc_ic()
  28     test_ne_s_s_ic()
  29     test_ne_sc_s_ic()
  30     test_ne_s_sc_ic()
  31     test_ne_sc_sc_ic()
  32     test_lt_s_s_ic()
  33     test_lt_sc_s_ic()
  34     test_lt_s_sc_ic()
  35     test_lt_sc_sc_ic()
  36     test_le_s_s_ic()
  37     test_le_sc_s_ic()
  38     test_le_s_sc_ic()
  39     test_le_sc_sc_ic()
  40     test_gt_s_s_ic()
  41     test_gt_sc_s_ic()
  42     test_gt_s_sc_ic()
  43     test_gt_sc_sc_ic()
  44     test_ge_s_s_ic()
  45     test_ge_sc_s_ic()
  46     test_ge_s_sc_ic()
  47     test_ge_sc_sc_ic()
  48
  49 .end
  50
  51 .sub test_eq_s_s_ic
  52     set $S0, "hello"
  53     set $S1, "hello"
  54     eq $S0, $S1, OK1
  55     branch ERROR
  56   OK1:
  57     set $S0, "hello"
  58     set $S1, "world"
  59     eq $S0, $S1, ERROR
  60   OK2:
  61     set $S0, "world"
  62     set $S1, "hello"
  63     eq $S0, $S1, ERROR
  64   OK3:
  65     set $S0, "hello"
  66     set $S1, "hellooo"
  67     eq $S0, $S1, ERROR
  68   OK4:
  69     set $S0, "hellooo"
  70     set $S1, "hello"
  71     eq $S0, $S1, ERROR
  72   OK5:
  73     set $S0, "hello"
  74     set $S1, "hella"
  75     eq $S0, $S1, ERROR
  76   OK6:
  77     set $S0, "hella"
  78     set $S1, "hello"
  79     eq $S0, $S1, ERROR
  80   OK7:
  81     set $S0, "hella"
  82     set $S1, "hellooo"
  83     eq $S0, $S1, ERROR
  84   OK8:
  85     set $S0, "hellooo"
  86     set $S1, "hella"
  87     eq $S0, $S1, ERROR
  88   OK9:
  89     set $S0, "hElLo"
  90     set $S1, "HeLlO"
  91     eq $S0, $S1, ERROR
  92   OK10:
  93     set $S0, "hElLo"
  94     set $S1, "hElLo"
  95     eq $S0, $S1, OK11
  96     branch ERROR
  97   OK11:
  98     ok( 1, 'eq_s_s_ic' )
  99     goto END
 100   ERROR:
 101    ok( 0, 'eq_s_s_ic' )
 102    END:
 103 .end
 104
 105 .sub test_eq_sc_s_ic
 106     set $S0, "hello"
 107     eq "hello", $S0, OK1
 108     branch ERROR
 109   OK1:
 110     set $S0, "world"
 111     eq "hello", $S0, ERROR
 112   OK2:
 113     set $S0, "hello"
 114     eq "world", $S0, ERROR
 115   OK3:
 116     set $S0, "hellooo"
 117     eq "hello", $S0, ERROR
 118   OK4:
 119     set $S0, "hello"
 120     eq "hellooo", $S0, ERROR
 121   OK5:
 122     set $S0, "hella"
 123     eq "hello", $S0, ERROR
 124   OK6:
 125     set $S0, "hello"
 126     eq "hella", $S0, ERROR
 127   OK7:
 128     set $S0, "hellooo"
 129     eq "hella", $S0, ERROR
 130   OK8:
 131     set $S0, "hella"
 132     eq "hellooo", $S0, ERROR
 133   OK9:
 134     set $S0, "HeLlO"
 135     eq "hElLo", $S0, ERROR
 136   OK10:
 137     set $S0, "hElLo"
 138     eq "hElLo", $S0, OK11
 139     branch ERROR
 140   OK11:
 141     ok( 1, 'eq_sc_s_ic' )
 142     goto END
 143   ERROR:
 144    ok( 0, 'eq_sc_s_ic' )
 145    END:
 146 .end
 147
 148 .sub test_eq_s_sc_ic
 149     set $S0, "hello"
 150     eq $S0, "hello", OK1
 151     branch ERROR
 152   OK1:
 153     set $S0, "hello"
 154     eq $S0, "world", ERROR
 155   OK2:
 156     set $S0, "world"
 157     eq $S0, "hello", ERROR
 158   OK3:
 159     set $S0, "hello"
 160     eq $S0, "hellooo", ERROR
 161   OK4:
 162     set $S0, "hellooo"
 163     eq $S0, "hello", ERROR
 164   OK5:
 165     set $S0, "hello"
 166     eq $S0, "hella", ERROR
 167   OK6:
 168     set $S0, "hella"
 169     eq $S0, "hello", ERROR
 170   OK7:
 171     set $S0, "hella"
 172     eq $S0, "hellooo", ERROR
 173   OK8:
 174     set $S0, "hellooo"
 175     eq $S0, "hella", ERROR
 176   OK9:
 177     set $S0, "hElLo"
 178     eq $S0, "HeLlO", ERROR
 179   OK10:
 180     set $S0, "hElLo"
 181     eq $S0, "hElLo", OK11
 182     branch ERROR
 183   OK11:
 184     ok( 1, 'eq_s_sc_ic' )
 185     goto END
 186   ERROR:
 187    ok( 0, 'eq_s_sc_ic' )
 188    END:
 189 .end
 190
 191 .sub test_eq_sc_sc_ic
 192     eq "hello", "hello", OK1
 193     branch ERROR
 194   OK1:
 195     eq "hello", "world", ERROR
 196   OK2:
 197     eq "world", "hello", ERROR
 198   OK3:
 199     eq "hello", "hellooo", ERROR
 200   OK4:
 201     eq "hellooo", "hello", ERROR
 202   OK5:
 203     eq "hello", "hella", ERROR
 204   OK6:
 205     eq "hella", "hello", ERROR
 206   OK7:
 207     eq "hella", "hellooo", ERROR
 208   OK8:
 209     eq "hellooo", "hella", ERROR
 210   OK9:
 211     eq "hElLo", "HeLlO", ERROR
 212   OK10:
 213     eq "hElLo", "hElLo", OK11
 214     branch ERROR
 215   OK11:
 216     ok( 1, 'eq_sc_sc_ic' )
 217     goto END
 218   ERROR:
 219    ok( 0, 'eq_sc_sc_ic' )
 220    END:
 221 .end
 222
 223 .sub test_ne_s_s_ic
 224     set $S0, "hello"
 225     set $S1, "hello"
 226     ne $S0, $S1, ERROR
 227   OK1:
 228     set $S0, "hello"
 229     set $S1, "world"
 230     ne $S0, $S1, OK2
 231     branch ERROR
 232   OK2:
 233     set $S0, "world"
 234     set $S1, "hello"
 235     ne $S0, $S1, OK3
 236     branch ERROR
 237   OK3:
 238     set $S0, "hello"
 239     set $S1, "hellooo"
 240     ne $S0, $S1, OK4
 241     branch ERROR
 242   OK4:
 243     set $S0, "hellooo"
 244     set $S1, "hello"
 245     ne $S0, $S1, OK5
 246     branch ERROR
 247   OK5:
 248     set $S0, "hello"
 249     set $S1, "hella"
 250     ne $S0, $S1, OK6
 251     branch ERROR
 252   OK6:
 253     set $S0, "hella"
 254     set $S1, "hello"
 255     ne $S0, $S1, OK7
 256     branch ERROR
 257   OK7:
 258     set $S0, "hella"
 259     set $S1, "hellooo"
 260     ne $S0, $S1, OK8
 261     branch ERROR
 262   OK8:
 263     set $S0, "hellooo"
 264     set $S1, "hella"
 265     ne $S0, $S1, OK9
 266     branch ERROR
 267   OK9:
 268     set $S0, "hElLo"
 269     set $S1, "HeLlO"
 270     ne $S0, $S1, OK10
 271     branch ERROR
 272   OK10:
 273     set $S0, "hElLo"
 274     set $S1, "hElLo"
 275     ne $S0, $S1, ERROR
 276   OK11:
 277     ok( 1, 'ne_s_s_ic' )
 278     goto END
 279   ERROR:
 280    ok( 0, 'ne_s_s_ic' )
 281    END:
 282 .end
 283
 284 .sub test_ne_sc_s_ic
 285     set $S0, "hello"
 286     ne "hello", $S0, ERROR
 287   OK1:
 288     set $S0, "world"
 289     ne "hello", $S0, OK2
 290     branch ERROR
 291   OK2:
 292     set $S0, "hello"
 293     ne "world", $S0, OK3
 294     branch ERROR
 295   OK3:
 296     set $S0, "hellooo"
 297     ne "hello", $S0, OK4
 298     branch ERROR
 299   OK4:
 300     set $S0, "hello"
 301     ne "hellooo", $S0, OK5
 302     branch ERROR
 303   OK5:
 304     set $S0, "hella"
 305     ne "hello", $S0, OK6
 306     branch ERROR
 307   OK6:
 308     set $S0, "hello"
 309     ne "hella", $S0, OK7
 310     branch ERROR
 311   OK7:
 312     set $S0, "hellooo"
 313     ne "hella", $S0, OK8
 314     branch ERROR
 315   OK8:
 316     set $S0, "hella"
 317     ne "hellooo", $S0, OK9
 318     branch ERROR
 319   OK9:
 320     set $S0, "HeLlO"
 321     ne "hElLo", $S0, OK10
 322     branch ERROR
 323   OK10:
 324     set $S0, "hElLo"
 325     ne "hElLo", $S0, ERROR
 326   OK11:
 327     ok( 1, 'ne_sc_s_ic' )
 328     goto END
 329   ERROR:
 330    ok( 0, 'ne_sc_s_ic' )
 331    END:
 332 .end
 333
 334 .sub test_ne_s_sc_ic
 335     set $S0, "hello"
 336     ne $S0, "hello", ERROR
 337   OK1:
 338     set $S0, "hello"
 339     ne $S0, "world", OK2
 340     branch ERROR
 341   OK2:
 342     set $S0, "world"
 343     ne $S0, "hello", OK3
 344     branch ERROR
 345   OK3:
 346     set $S0, "hello"
 347     ne $S0, "hellooo", OK4
 348     branch ERROR
 349   OK4:
 350     set $S0, "hellooo"
 351     ne $S0, "hello", OK5
 352     branch ERROR
 353   OK5:
 354     set $S0, "hello"
 355     ne $S0, "hella", OK6
 356     branch ERROR
 357   OK6:
 358     set $S0, "hella"
 359     ne $S0, "hello", OK7
 360     branch ERROR
 361   OK7:
 362     set $S0, "hella"
 363     ne $S0, "hellooo", OK8
 364     branch ERROR
 365   OK8:
 366     set $S0, "hellooo"
 367     ne $S0, "hella", OK9
 368     branch ERROR
 369   OK9:
 370     set $S0, "hElLo"
 371     ne $S0, "HeLlO", OK10
 372     branch ERROR
 373   OK10:
 374     set $S0, "hElLo"
 375     ne $S0, "hElLo", ERROR
 376   OK11:
 377     ok( 1, 'ne_s_sc_ic' )
 378     goto END
 379   ERROR:
 380    ok( 0, 'ne_s_sc_ic' )
 381    END:
 382 .end
 383
 384 .sub test_ne_sc_sc_ic
 385     ne "hello", "hello", ERROR
 386   OK1:
 387     ne "hello", "world", OK2
 388     branch ERROR
 389   OK2:
 390     ne "world", "hello", OK3
 391     branch ERROR
 392   OK3:
 393     ne "hello", "hellooo", OK4
 394     branch ERROR
 395   OK4:
 396     ne "hellooo", "hello", OK5
 397     branch ERROR
 398   OK5:
 399     ne "hello", "hella", OK6
 400     branch ERROR
 401   OK6:
 402     ne "hella", "hello", OK7
 403     branch ERROR
 404   OK7:
 405     ne "hella", "hellooo", OK8
 406     branch ERROR
 407   OK8:
 408     ne "hellooo", "hella", OK9
 409     branch ERROR
 410   OK9:
 411     ne "hElLo", "HeLlO", OK10
 412     branch ERROR
 413   OK10:
 414     ne "hElLo", "hElLo", ERROR
 415   OK11:
 416     ok( 1, 'ne_sc_sc_ic' )
 417     goto END
 418   ERROR:
 419    ok( 0, 'ne_sc_sc_ic' )
 420    END:
 421 .end
 422
 423 .sub test_lt_s_s_ic
 424     set $S0, "hello"
 425     set $S1, "hello"
 426     lt $S0, $S1, ERROR
 427   OK1:
 428     set $S0, "hello"
 429     set $S1, "world"
 430     lt $S0, $S1, OK2
 431     branch ERROR
 432   OK2:
 433     set $S0, "world"
 434     set $S1, "hello"
 435     lt $S0, $S1, ERROR
 436   OK3:
 437     set $S0, "hello"
 438     set $S1, "hellooo"
 439     lt $S0, $S1, OK4
 440     branch ERROR
 441   OK4:
 442     set $S0, "hellooo"
 443     set $S1, "hello"
 444     lt $S0, $S1, ERROR
 445   OK5:
 446     set $S0, "hello"
 447     set $S1, "hella"
 448     lt $S0, $S1, ERROR
 449   OK6:
 450     set $S0, "hella"
 451     set $S1, "hello"
 452     lt $S0, $S1, OK7
 453     branch ERROR
 454   OK7:
 455     set $S0, "hella"
 456     set $S1, "hellooo"
 457     lt $S0, $S1, OK8
 458     branch ERROR
 459   OK8:
 460     set $S0, "hellooo"
 461     set $S1, "hella"
 462     lt $S0, $S1, ERROR
 463   OK9:
 464     set $S0, "hElLo"
 465     set $S1, "HeLlO"
 466     lt $S0, $S1, ERROR
 467   OK10:
 468     set $S0, "hElLo"
 469     set $S1, "hElLo"
 470     lt $S0, $S1, ERROR
 471   OK11:
 472     ok( 1, 'lt_s_s_ic' )
 473     goto END
 474   ERROR:
 475    ok( 0, 'lt_s_s_ic' )
 476    END:
 477 .end
 478
 479 .sub test_lt_sc_s_ic
 480     set $S0, "hello"
 481     lt "hello", $S0, ERROR
 482   OK1:
 483     set $S0, "world"
 484     lt "hello", $S0, OK2
 485     branch ERROR
 486   OK2:
 487     set $S0, "hello"
 488     lt "world", $S0, ERROR
 489   OK3:
 490     set $S0, "hellooo"
 491     lt "hello", $S0, OK4
 492     branch ERROR
 493   OK4:
 494     set $S0, "hello"
 495     lt "hellooo", $S0, ERROR
 496   OK5:
 497     set $S0, "hella"
 498     lt "hello", $S0, ERROR
 499   OK6:
 500     set $S0, "hello"
 501     lt "hella", $S0, OK7
 502     branch ERROR
 503   OK7:
 504     set $S0, "hellooo"
 505     lt "hella", $S0, OK8
 506     branch ERROR
 507   OK8:
 508     set $S0, "hella"
 509     lt "hellooo", $S0, ERROR
 510   OK9:
 511     set $S0, "HeLlO"
 512     lt "hElLo", $S0, ERROR
 513   OK10:
 514     set $S0, "hElLo"
 515     lt "hElLo", $S0, ERROR
 516   OK11:
 517     ok( 1, 'lt_sc_s_ic' )
 518     goto END
 519   ERROR:
 520    ok( 0, 'lt_sc_s_ic' )
 521    END:
 522 .end
 523
 524 .sub test_lt_s_sc_ic
 525     set $S0, "hello"
 526     lt $S0, "hello", ERROR
 527   OK1:
 528     set $S0, "hello"
 529     lt $S0, "world", OK2
 530     branch ERROR
 531   OK2:
 532     set $S0, "world"
 533     lt $S0, "hello", ERROR
 534   OK3:
 535     set $S0, "hello"
 536     lt $S0, "hellooo", OK4
 537     branch ERROR
 538   OK4:
 539     set $S0, "hellooo"
 540     lt $S0, "hello", ERROR
 541   OK5:
 542     set $S0, "hello"
 543     lt $S0, "hella", ERROR
 544   OK6:
 545     set $S0, "hella"
 546     lt $S0, "hello", OK7
 547     branch ERROR
 548   OK7:
 549     set $S0, "hella"
 550     lt $S0, "hellooo", OK8
 551     branch ERROR
 552   OK8:
 553     set $S0, "hellooo"
 554     lt $S0, "hella", ERROR
 555   OK9:
 556     set $S0, "hElLo"
 557     lt $S0, "HeLlO", ERROR
 558   OK10:
 559     set $S0, "hElLo"
 560     lt $S0, "hElLo", ERROR
 561   OK11:
 562     ok( 1, 'lt_s_sc_ic' )
 563     goto END
 564   ERROR:
 565    ok( 0, 'lt_s_sc_ic' )
 566    END:
 567 .end
 568
 569 .sub test_lt_sc_sc_ic
 570     lt "hello", "hello", ERROR
 571   OK1:
 572     lt "hello", "world", OK2
 573     branch ERROR
 574   OK2:
 575     lt "world", "hello", ERROR
 576   OK3:
 577     lt "hello", "hellooo", OK4
 578     branch ERROR
 579   OK4:
 580     lt "hellooo", "hello", ERROR
 581   OK5:
 582     lt "hello", "hella", ERROR
 583   OK6:
 584     lt "hella", "hello", OK7
 585     branch ERROR
 586   OK7:
 587     lt "hella", "hellooo", OK8
 588     branch ERROR
 589   OK8:
 590     lt "hellooo", "hella", ERROR
 591   OK9:
 592     lt "hElLo", "HeLlO", ERROR
 593   OK10:
 594     lt "hElLo", "hElLo", ERROR
 595   OK11:
 596     ok( 1, 'lt_sc_sc_ic' )
 597     goto END
 598   ERROR:
 599    ok( 0, 'lt_sc_sc_ic' )
 600    END:
 601 .end
 602
 603 .sub test_le_s_s_ic
 604     set $S0, "hello"
 605     set $S1, "hello"
 606     le $S0, $S1, OK1
 607     branch ERROR
 608   OK1:
 609     set $S0, "hello"
 610     set $S1, "world"
 611     le $S0, $S1, OK2
 612     branch ERROR
 613   OK2:
 614     set $S0, "world"
 615     set $S1, "hello"
 616     le $S0, $S1, ERROR
 617   OK3:
 618     set $S0, "hello"
 619     set $S1, "hellooo"
 620     le $S0, $S1, OK4
 621     branch ERROR
 622   OK4:
 623     set $S0, "hellooo"
 624     set $S1, "hello"
 625     le $S0, $S1, ERROR
 626   OK5:
 627     set $S0, "hello"
 628     set $S1, "hella"
 629     le $S0, $S1, ERROR
 630   OK6:
 631     set $S0, "hella"
 632     set $S1, "hello"
 633     le $S0, $S1, OK7
 634     branch ERROR
 635   OK7:
 636     set $S0, "hella"
 637     set $S1, "hellooo"
 638     le $S0, $S1, OK8
 639     branch ERROR
 640   OK8:
 641     set $S0, "hellooo"
 642     set $S1, "hella"
 643     le $S0, $S1, ERROR
 644   OK9:
 645     set $S0, "hElLo"
 646     set $S1, "HeLlO"
 647     le $S0, $S1, ERROR
 648   OK10:
 649     set $S0, "hElLo"
 650     set $S1, "hElLo"
 651     le $S0, $S1, OK11
 652     branch ERROR
 653   OK11:
 654     ok( 1, 'le_s_s_ic' )
 655     goto END
 656   ERROR:
 657    ok( 0, 'le_s_s_ic' )
 658    END:
 659 .end
 660
 661 .sub test_le_sc_s_ic
 662     set $S0, "hello"
 663     le "hello", $S0, OK1
 664     branch ERROR
 665   OK1:
 666     set $S0, "world"
 667     le "hello", $S0, OK2
 668     branch ERROR
 669   OK2:
 670     set $S0, "hello"
 671     le "world", $S0, ERROR
 672   OK3:
 673     set $S0, "hellooo"
 674     le "hello", $S0, OK4
 675     branch ERROR
 676   OK4:
 677     set $S0, "hello"
 678     le "hellooo", $S0, ERROR
 679   OK5:
 680     set $S0, "hella"
 681     le "hello", $S0, ERROR
 682   OK6:
 683     set $S0, "hello"
 684     le "hella", $S0, OK7
 685     branch ERROR
 686   OK7:
 687     set $S0, "hellooo"
 688     le "hella", $S0, OK8
 689     branch ERROR
 690   OK8:
 691     set $S0, "hella"
 692     le "hellooo", $S0, ERROR
 693   OK9:
 694     set $S0, "HeLlO"
 695     le "hElLo", $S0, ERROR
 696   OK10:
 697     set $S0, "hElLo"
 698     le "hElLo", $S0, OK11
 699     branch ERROR
 700   OK11:
 701     ok( 1, 'le_sc_s_ic' )
 702     goto END
 703   ERROR:
 704    ok( 0, 'le_sc_s_ic' )
 705    END:
 706 .end
 707
 708 .sub test_le_s_sc_ic
 709     set $S0, "hello"
 710     le $S0, "hello", OK1
 711     branch ERROR
 712   OK1:
 713     set $S0, "hello"
 714     le $S0, "world", OK2
 715     branch ERROR
 716   OK2:
 717     set $S0, "world"
 718     le $S0, "hello", ERROR
 719   OK3:
 720     set $S0, "hello"
 721     le $S0, "hellooo", OK4
 722     branch ERROR
 723   OK4:
 724     set $S0, "hellooo"
 725     le $S0, "hello", ERROR
 726   OK5:
 727     set $S0, "hello"
 728     le $S0, "hella", ERROR
 729   OK6:
 730     set $S0, "hella"
 731     le $S0, "hello", OK7
 732     branch ERROR
 733   OK7:
 734     set $S0, "hella"
 735     le $S0, "hellooo", OK8
 736     branch ERROR
 737   OK8:
 738     set $S0, "hellooo"
 739     le $S0, "hella", ERROR
 740   OK9:
 741     set $S0, "hElLo"
 742     le $S0, "HeLlO", ERROR
 743   OK10:
 744     set $S0, "hElLo"
 745     le $S0, "hElLo", OK11
 746     branch ERROR
 747   OK11:
 748     ok( 1, 'le_s_sc_ic' )
 749     goto END
 750   ERROR:
 751    ok( 0, 'le_s_sc_ic' )
 752    END:
 753 .end
 754
 755 .sub test_le_sc_sc_ic
 756     le "hello", "hello", OK1
 757     branch ERROR
 758   OK1:
 759     le "hello", "world", OK2
 760     branch ERROR
 761   OK2:
 762     le "world", "hello", ERROR
 763   OK3:
 764     le "hello", "hellooo", OK4
 765     branch ERROR
 766   OK4:
 767     le "hellooo", "hello", ERROR
 768   OK5:
 769     le "hello", "hella", ERROR
 770   OK6:
 771     le "hella", "hello", OK7
 772     branch ERROR
 773   OK7:
 774     le "hella", "hellooo", OK8
 775     branch ERROR
 776   OK8:
 777     le "hellooo", "hella", ERROR
 778   OK9:
 779     le "hElLo", "HeLlO", ERROR
 780   OK10:
 781     le "hElLo", "hElLo", OK11
 782     branch ERROR
 783   OK11:
 784     ok( 1, 'le_sc_sc_ic' )
 785     goto END
 786   ERROR:
 787    ok( 0, 'le_sc_sc_ic' )
 788    END:
 789 .end
 790
 791 .sub test_gt_s_s_ic
 792     set $S0, "hello"
 793     set $S1, "hello"
 794     gt $S0, $S1, ERROR
 795   OK1:
 796     set $S0, "hello"
 797     set $S1, "world"
 798     gt $S0, $S1, ERROR
 799   OK2:
 800     set $S0, "world"
 801     set $S1, "hello"
 802     gt $S0, $S1, OK3
 803     branch ERROR
 804   OK3:
 805     set $S0, "hello"
 806     set $S1, "hellooo"
 807     gt $S0, $S1, ERROR
 808   OK4:
 809     set $S0, "hellooo"
 810     set $S1, "hello"
 811     gt $S0, $S1, OK5
 812     branch ERROR
 813   OK5:
 814     set $S0, "hello"
 815     set $S1, "hella"
 816     gt $S0, $S1, OK6
 817     branch ERROR
 818   OK6:
 819     set $S0, "hella"
 820     set $S1, "hello"
 821     gt $S0, $S1, ERROR
 822   OK7:
 823     set $S0, "hella"
 824     set $S1, "hellooo"
 825     gt $S0, $S1, ERROR
 826   OK8:
 827     set $S0, "hellooo"
 828     set $S1, "hella"
 829     gt $S0, $S1, OK9
 830     branch ERROR
 831   OK9:
 832     set $S0, "hElLo"
 833     set $S1, "HeLlO"
 834     gt $S0, $S1, OK10
 835     branch ERROR
 836   OK10:
 837     set $S0, "hElLo"
 838     set $S1, "hElLo"
 839     gt $S0, $S1, ERROR
 840   OK11:
 841     ok( 1, 'gt_s_s_ic' )
 842     goto END
 843   ERROR:
 844    ok( 0, 'gt_s_s_ic' )
 845    END:
 846 .end
 847
 848 .sub test_gt_sc_s_ic
 849     set $S0, "hello"
 850     gt "hello", $S0, ERROR
 851   OK1:
 852     set $S0, "world"
 853     gt "hello", $S0, ERROR
 854   OK2:
 855     set $S0, "hello"
 856     gt "world", $S0, OK3
 857     branch ERROR
 858   OK3:
 859     set $S0, "hellooo"
 860     gt "hello", $S0, ERROR
 861   OK4:
 862     set $S0, "hello"
 863     gt "hellooo", $S0, OK5
 864     branch ERROR
 865   OK5:
 866     set $S0, "hella"
 867     gt "hello", $S0, OK6
 868     branch ERROR
 869   OK6:
 870     set $S0, "hello"
 871     gt "hella", $S0, ERROR
 872   OK7:
 873     set $S0, "hellooo"
 874     gt "hella", $S0, ERROR
 875   OK8:
 876     set $S0, "hella"
 877     gt "hellooo", $S0, OK9
 878     branch ERROR
 879   OK9:
 880     set $S0, "HeLlO"
 881     gt "hElLo", $S0, OK10
 882     branch ERROR
 883   OK10:
 884     set $S0, "hElLo"
 885     gt "hElLo", $S0, ERROR
 886   OK11:
 887     ok( 1, 'gt_sc_s_ic' )
 888     goto END
 889   ERROR:
 890    ok( 0, 'gt_sc_s_ic' )
 891    END:
 892 .end
 893
 894 .sub test_gt_s_sc_ic
 895     set $S0, "hello"
 896     gt $S0, "hello", ERROR
 897   OK1:
 898     set $S0, "hello"
 899     gt $S0, "world", ERROR
 900   OK2:
 901     set $S0, "world"
 902     gt $S0, "hello", OK3
 903     branch ERROR
 904   OK3:
 905     set $S0, "hello"
 906     gt $S0, "hellooo", ERROR
 907   OK4:
 908     set $S0, "hellooo"
 909     gt $S0, "hello", OK5
 910     branch ERROR
 911   OK5:
 912     set $S0, "hello"
 913     gt $S0, "hella", OK6
 914     branch ERROR
 915   OK6:
 916     set $S0, "hella"
 917     gt $S0, "hello", ERROR
 918   OK7:
 919     set $S0, "hella"
 920     gt $S0, "hellooo", ERROR
 921   OK8:
 922     set $S0, "hellooo"
 923     gt $S0, "hella", OK9
 924     branch ERROR
 925   OK9:
 926     set $S0, "hElLo"
 927     gt $S0, "HeLlO", OK10
 928     branch ERROR
 929   OK10:
 930     set $S0, "hElLo"
 931     gt $S0, "hElLo", ERROR
 932   OK11:
 933     ok( 1, 'gt_s_sc_ic' )
 934     goto END
 935   ERROR:
 936    ok( 0, 'gt_s_sc_ic' )
 937    END:
 938 .end
 939
 940 .sub test_gt_sc_sc_ic
 941     gt "hello", "hello", ERROR
 942   OK1:
 943     gt "hello", "world", ERROR
 944   OK2:
 945     gt "world", "hello", OK3
 946     branch ERROR
 947   OK3:
 948     gt "hello", "hellooo", ERROR
 949   OK4:
 950     gt "hellooo", "hello", OK5
 951     branch ERROR
 952   OK5:
 953     gt "hello", "hella", OK6
 954     branch ERROR
 955   OK6:
 956     gt "hella", "hello", ERROR
 957   OK7:
 958     gt "hella", "hellooo", ERROR
 959   OK8:
 960     gt "hellooo", "hella", OK9
 961     branch ERROR
 962   OK9:
 963     gt "hElLo", "HeLlO", OK10
 964     branch ERROR
 965   OK10:
 966     gt "hElLo", "hElLo", ERROR
 967   OK11:
 968     ok( 1, 'gt_sc_sc_ic' )
 969     goto END
 970   ERROR:
 971    ok( 0, 'gt_sc_sc_ic' )
 972    END:
 973 .end
 974
 975 .sub test_ge_s_s_ic
 976     set $S0, "hello"
 977     set $S1, "hello"
 978     ge $S0, $S1, OK1
 979     branch ERROR
 980   OK1:
 981     set $S0, "hello"
 982     set $S1, "world"
 983     ge $S0, $S1, ERROR
 984   OK2:
 985     set $S0, "world"
 986     set $S1, "hello"
 987     ge $S0, $S1, OK3
 988     branch ERROR
 989   OK3:
 990     set $S0, "hello"
 991     set $S1, "hellooo"
 992     ge $S0, $S1, ERROR
 993   OK4:
 994     set $S0, "hellooo"
 995     set $S1, "hello"
 996     ge $S0, $S1, OK5
 997     branch ERROR
 998   OK5:
 999     set $S0, "hello"
1000     set $S1, "hella"
1001     ge $S0, $S1, OK6
1002     branch ERROR
1003   OK6:
1004     set $S0, "hella"
1005     set $S1, "hello"
1006     ge $S0, $S1, ERROR
1007   OK7:
1008     set $S0, "hella"
1009     set $S1, "hellooo"
1010     ge $S0, $S1, ERROR
1011   OK8:
1012     set $S0, "hellooo"
1013     set $S1, "hella"
1014     ge $S0, $S1, OK9
1015     branch ERROR
1016   OK9:
1017     set $S0, "hElLo"
1018     set $S1, "HeLlO"
1019     ge $S0, $S1, OK10
1020     branch ERROR
1021   OK10:
1022     set $S0, "hElLo"
1023     set $S1, "hElLo"
1024     ge $S0, $S1, OK11
1025     branch ERROR
1026   OK11:
1027     ok( 1, 'ge_s_s_ic' )
1028     goto END
1029   ERROR:
1030    ok( 0, 'ge_s_s_ic' )
1031    END:
1032 .end
1033
1034 .sub test_ge_sc_s_ic
1035     set $S0, "hello"
1036     ge "hello", $S0, OK1
1037     branch ERROR
1038   OK1:
1039     set $S0, "world"
1040     ge "hello", $S0, ERROR
1041   OK2:
1042     set $S0, "hello"
1043     ge "world", $S0, OK3
1044     branch ERROR
1045   OK3:
1046     set $S0, "hellooo"
1047     ge "hello", $S0, ERROR
1048   OK4:
1049     set $S0, "hello"
1050     ge "hellooo", $S0, OK5
1051     branch ERROR
1052   OK5:
1053     set $S0, "hella"
1054     ge "hello", $S0, OK6
1055     branch ERROR
1056   OK6:
1057     set $S0, "hello"
1058     ge "hella", $S0, ERROR
1059   OK7:
1060     set $S0, "hellooo"
1061     ge "hella", $S0, ERROR
1062   OK8:
1063     set $S0, "hella"
1064     ge "hellooo", $S0, OK9
1065     branch ERROR
1066   OK9:
1067     set $S0, "HeLlO"
1068     ge "hElLo", $S0, OK10
1069     branch ERROR
1070   OK10:
1071     set $S0, "hElLo"
1072     ge "hElLo", $S0, OK11
1073     branch ERROR
1074   OK11:
1075     ok( 1, 'ge_sc_s_ic' )
1076     goto END
1077   ERROR:
1078    ok( 0, 'ge_sc_s_ic' )
1079    END:
1080 .end
1081
1082 .sub test_ge_s_sc_ic
1083     set $S0, "hello"
1084     ge $S0, "hello", OK1
1085     branch ERROR
1086   OK1:
1087     set $S0, "hello"
1088     ge $S0, "world", ERROR
1089   OK2:
1090     set $S0, "world"
1091     ge $S0, "hello", OK3
1092     branch ERROR
1093   OK3:
1094     set $S0, "hello"
1095     ge $S0, "hellooo", ERROR
1096   OK4:
1097     set $S0, "hellooo"
1098     ge $S0, "hello", OK5
1099     branch ERROR
1100   OK5:
1101     set $S0, "hello"
1102     ge $S0, "hella", OK6
1103     branch ERROR
1104   OK6:
1105     set $S0, "hella"
1106     ge $S0, "hello", ERROR
1107   OK7:
1108     set $S0, "hella"
1109     ge $S0, "hellooo", ERROR
1110   OK8:
1111     set $S0, "hellooo"
1112     ge $S0, "hella", OK9
1113     branch ERROR
1114   OK9:
1115     set $S0, "hElLo"
1116     ge $S0, "HeLlO", OK10
1117     branch ERROR
1118   OK10:
1119     set $S0, "hElLo"
1120     ge $S0, "hElLo", OK11
1121     branch ERROR
1122   OK11:
1123     ok( 1, 'ge_s_sc_ic' )
1124     goto END
1125   ERROR:
1126    ok( 0, 'ge_s_sc_ic' )
1127    END:
1128 .end
1129
1130 .sub test_ge_sc_sc_ic
1131     ge "hello", "hello", OK1
1132     branch ERROR
1133   OK1:
1134     ge "hello", "world", ERROR
1135   OK2:
1136     ge "world", "hello", OK3
1137     branch ERROR
1138   OK3:
1139     ge "hello", "hellooo", ERROR
1140   OK4:
1141     ge "hellooo", "hello", OK5
1142     branch ERROR
1143   OK5:
1144     ge "hello", "hella", OK6
1145     branch ERROR
1146   OK6:
1147     ge "hella", "hello", ERROR
1148   OK7:
1149     ge "hella", "hellooo", ERROR
1150   OK8:
1151     ge "hellooo", "hella", OK9
1152     branch ERROR
1153   OK9:
1154     ge "hElLo", "HeLlO", OK10
1155     branch ERROR
1156   OK10:
1157     ge "hElLo", "hElLo", OK11
1158     branch ERROR
1159   OK11:
1160     ok( 1, 'ge_sc_sc_ic' )
1161     goto END
1162   ERROR:
1163    ok( 0, 'ge_sc_sc_ic' )
1164    END:
1165 .end
1166
1167 # Local Variables:
1168 #   mode: pir
1169 #   cperl-indent-level: 4
1170 #   fill-column: 100
1171 # End:
1172 # vim: expandtab shiftwidth=4 ft=pir :