File indexing completed on 2024-04-14 03:43:52

 #  SPDX-FileCopyrightText: 2009 Cies Breijs
 #  SPDX-FileCopyrightText: 2009 Niels Slot
 #
 #  SPDX-License-Identifier: GPL-2.0-or-later
 
 require File.dirname(__FILE__) + '/spec_helper.rb'
 $i = Interpreter.instance
 
 describe "learn (user defined commands)" do
   it "should work for commands without arguments" do
     $i.should_run_clean <<-EOS
       learn user_def {
         assert true
       }
       user_def
     EOS
   end
 
   it "should work for commands with 1 argument" do
     $i.should_run_clean <<-EOS
       learn user_def $x {
         assert $x == 1
       }
       user_def 1
     EOS
   end
 
   it "should work for commands with 2 mixed arguments" do
     $i.should_run_clean <<-EOS
       learn user_def $x, $y {
         assert $x == "kturtle"
         assert $y == 10
       }
       user_def "kturtle", 10
     EOS
   end
 
   it "should work for commands with 3 mixed arguments" do
     $i.should_run_clean <<-EOS
       learn user_def $x, $y, $z {
         assert $x
         assert $y == "kturtle"
         assert $z == 10
       }
       user_def true, "kturtle", 10
     EOS
   end
 
   it "should work with return values" do
     $i.should_run_clean <<-EOS
       learn user_def {
         return true
       }
       assert user_def
 
       learn user_def2 {
         return "kturtle"
       }
       assert "kturtle" == user_def2
     EOS
   end
 
   it "should produce an error when the number of arguments does not match" do
     $i.run <<-EOS
       learn user_def $x, $y, $z {
 
       }
       user_def 1
     EOS
     $i.errors?.should be_true
   end
 
   it "should produce an error when the scope is omitted" do
     $i.run <<-EOS
       learn user_def $x
 
       user_def
     EOS
     $i.errors?.should be_true
   end
 
   it "should allow recursion over one function"
   it "should allow recursion over two functions"
 end