[S03/relational.t] more tests to detect bad comparison semantics invo…

…lving padding

git-svn-id: http://svn.pugscode.org/pugs@30104 c213334d-75ef-0310-aa23-eaa082d1ae64

S03-operators/relational.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 88;
+plan 92;
 
 ## N.B.:  Tests for infix:«<=>» (spaceship) and infix:<cmp> belong
 ## in F<t/S03-operators/comparison.t>.
@@ -130,6 +130,12 @@ ok("5" eq "5" gt "0", '"5" eq "5" gt "0" chained str comparison with equality');
 ok("5" le "5" gt "0", "5 le 5 gt 0 chained str comparison with le");
 ok("0" lt "5" ge "5", "0 lt 5 ge 5 chained comparison with ge");
 
+# make sure we don't have "padding" or "trimming" semantics
+ok("a" lt "a\0", 'a lt a\0');
+ok("a" lt "a ", 'a lt a\x20');
+ok("a\0" gt "a", 'a\0 gt a');
+ok("a " gt "a", 'a\x20 gt a');
+
 done_testing;
 
 # vim: ft=perl6