Changeset 5027

Timestamp:

06/27/05 20:43:21 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6880

Message:

* $hashref.does(Hash) now returns true
* more test cleanups

Files:

• src/Pugs/AST/Internals.hs (modified) (1 diff)
• src/Pugs/Prim/Match.hs (modified) (2 diffs)
• t/pugsbugs/positional_parameters_in_BUILD.t (modified) (1 diff)
• t/statements/given.t (modified) (1 diff)

src/Pugs/AST/Internals.hs

@@ -251 +251 @@
         str     <- fromVal =<< fetch "name"
         return $ mkType str
-    fromVal v           = return $ valType v
+    fromVal v           = evalValType v
     doCast v = castFailM v "VType"
 

src/Pugs/Prim/Match.hs

@@ -153 +153 @@
 op2Match (VType typ) (VType t) = do
     typs <- pkgParents (showType typ)
-    return . VBool $ showType t `elem` typs
+    return . VBool $ showType t `elem` (showType typ:typs)
 
 op2Match x y@(VType _) = do
@@ -159 +159 @@
     op2Match (VType typ) y
 
-{-
 op2Match (VRef x) y = do
     x' <- readRef x
     op2Match x' y
--}
 
 op2Match x y = do

t/pugsbugs/positional_parameters_in_BUILD.t

@@ -9 +9 @@
 class Foo { submethod BUILD ($value) { $value_from_BUILD = $value; } };
 
-my $foo = Foo.new("passed");
-
-is $value_from_BUILD, 'passed', 'positional args passed to new() are passed on to BUILD', :todo<bug>;
+dies_ok { Foo.new("passed") }, 'positional args passed to new() should not be passed on to BUILD';

t/statements/given.t

@@ -229 +229 @@
     is(@got.join(","), "false,true", q!given { when true { } }!);
 ';
-fail("when true is parsefail; $!", :todo<feature>) if $!;
+fail("when true is parsefail", :todo<feature>) if $!;