X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpod%2Fspecial_seqs.xr;h=a8c715ae0ac01fc98729f212e9b03c36cfc27906;hb=e163f9a0cad0e6bc632cba9a82e10b83f046f88d;hp=fc06593d9d150aba00eb436444d369aa7d20662e;hpb=146174a91a192983720a158796dc066226ad0e55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pod/special_seqs.xr b/t/pod/special_seqs.xr
index fc06593..a8c715a 100644
--- a/t/pod/special_seqs.xr
+++ b/t/pod/special_seqs.xr
@@ -1,8 +1,12 @@
     This is a test to see if I can do not only `$self' and `method()', but
-    also `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}' without
-    resorting to escape sequences.
+    also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar'
+    without resorting to escape sequences. If I want to refer to the
+    right-shift operator I can do something like `$x >> 3' or even `$y >>
+    5'.
 
     Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'.
+    And I also want to make sure that newlines work like this
+    `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]'
 
     Of course I should still be able to do all this *with* escape sequences
     too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'.
@@ -11,3 +15,11 @@
 
     And make sure that `0' works too!
 
+    Now, if I use << or >> as my delimiters, then I have to use whitespace.
+    So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end
+    up doing what you might expect since the first > will still terminate
+    the first < seen.
+
+    Lets make sure these work for empty ones too, like and `>>' (just to be
+    obnoxious)
+