Changeset 7953

Timestamp:

11/14/05 03:15:42 (3 years ago)

Author:

luqui

svk:copy_cache_prev:

10363

Message:

Added some tests for these changes. The listop method needs
many many more, though.

Files:

• src/Pugs/Lexer.hs (modified) (1 diff)
• t/operators/quoting.t (modified) (2 diffs)
• t/syntax/parsing/sub_calls.t (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -203 +203 @@
 charControl :: GenParser Char st Char
 charControl     = do{ char 'c'
-                    ; code <- upper
+                    ; code <- upper <|> char '@'
                     ; return (toEnum (fromEnum code - fromEnum '@'))
                     }

t/operators/quoting.t

@@ -4 +4 @@
 use Test;
 
-plan 73;
+plan 83;
 
 my $foo = "FOO";
@@ -271 +271 @@
     is(@q[0].perl, (p => "moose").perl, ":pair<anglequoted>", :todo<bug>);
 };
+
+{ # weird char escape sequences
+    is("\d97", "a");
+    is("\d102oo", "foo");
+    is("\d123", chr 123);
+    is("\d[12]3", chr(12) ~ "3");
+    is("\d[12] 3", chr(12) ~ " 3");
+
+    is("\x41", "A");
+    is("\o101", "A");
+
+    is("\c@", "\0");
+    is("\cA", chr 1);
+    is("\cZ", chr 26);
+}

t/syntax/parsing/sub_calls.t

@@ -4 +4 @@
 use Test;
 
-plan 19;
+plan 20;
 
 # Since these are all parsing tests, they should use eval to ensure all tests
@@ -57 +57 @@
     is(eval(q/first.second/), 'firstsecond', '`first.second` means `&second(&first())`');
 }
+
+{
+    is(eval(q/"hello".substr: 1, 2/), "el", "listop method");
+
+    # foo $bar.baz: quux 
+    # should be (and is currently) interpreted as:
+    # foo($bar.baz(quux))
+    # where the alternate interpretation can be achieved by:
+    # foo ($bar.baz): quux
+    # which is interpreted as
+    # $bar.baz.foo(quux)
+    # but we need tests, tests, tests! XXX
+}