fix error output, reclaim a test.

partcl · Aug 21, 2010 · 9a5f426 · 9a5f426
1 parent ad9586e
commit 9a5f426
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Partcl/commands/namespace.pm b/src/Partcl/commands/namespace.pm
@@ -114,7 +114,7 @@ my sub children($namespace = pir::new('TclString'), $pattern = '*') {
     for @ns -> $level {
         $ns := $ns{$level};
         if pir::typeof($ns) ne 'NameSpace' {
-            error("namespace \"$namespace\" not found in ::");
+            error('namespace "' ~ $namespace ~ '" not found in "::"');
         }
     }
 

diff --git a/t/cmd_namespace.t b/t/cmd_namespace.t
@@ -18,7 +18,7 @@ eval_is {namespace children a b c} \
 
 eval_is {namespace children what?} \
   {namespace "what?" not found in "::"} \
-  {namespace children: unknown namespace} {TODO NQPRX}
+  {namespace children: unknown namespace}
 
 is [namespace children]        {::tcl} {namespace children: no args} {TODO NQPRX}
 is [namespace children ::]     {::tcl} {namespace children: ::} {TODO NQPRX}