improve stub for [gets]

partcl · Jun 27, 2010 · e30aae6 · e30aae6
1 parent 6bb906f
commit e30aae6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/Partcl/commands/main.pm b/src/Partcl/commands/main.pm
@@ -272,6 +272,10 @@ our sub format(*@args) {
 }
 
 our sub gets(*@args) {
+    if +@args < 1 || +@args > 2 {
+        error('wrong # args: should be "gets channelId ?varName?"');
+    }
+    my $channelId := @args.shift;
     '';
 }
 

diff --git a/t/cmd_gets.t b/t/cmd_gets.t
@@ -5,11 +5,11 @@ plan 3
 
 eval_is {gets} \
   {wrong # args: should be "gets channelId ?varName?"} \
-  {no args} {TODO NQPRX}
+  {no args}
 
 eval_is {gets a b c} \
   {wrong # args: should be "gets channelId ?varName?"} \
-  {too many args} {TODO NQPRX}
+  {too many args}
 
 eval_is {gets #parrot} \
   {can not find channel named "#parrot"} \