q-language 1.0.0

data/test/methods/test_block.rb

@@ -0,0 +1,66 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestBlock < TestQ
+  def test_block_p_returns_self
+    returns :b, "{ :b block block? }"
+  end
+  
+  def test_call_returns_block_return_value
+    eq 614, "{ block { Number(614) } call }"
+  end
+  
+  def test_call_calls_block
+    set? :value, 614, "{ block { :value Number(614) } call }"
+  end
+  
+  def test_eval_returns_block_return_value
+    eq 614, "{ block { Number(614) } eval new }"
+  end
+  
+  def test_eval_calls_block
+    set? :value, 614, "{ block { :value Number(614) } eval new }"
+  end
+  
+  def test_eval_calls_block_with_dynamic_as_self
+    script = "{ block { :value self } eval :o new }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(env.get(:o), env.get(:value))
+  end
+  
+  def test_eval_arg_returns_block_return_value
+    eq 614, "{ block :arg { Number(614) } eval_arg new Token(arg) }"
+  end
+  
+  def test_eval_arg_calls_block
+    set? :value, 614, "{ block :arg { :value Number(614) } eval_arg new Token(arg) }"
+  end
+  
+  def test_eval_arg_calls_block_with_dynamic_as_self
+    script = "{ block :arg { :value self } eval_arg :o new Token(arg) }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(env.get(:o), env.get(:value))
+  end
+  
+  def test_eval_arg_calls_block_with_argument
+    set? :value, 614, "{ block :arg { :value :arg } eval_arg :o new Number(614) }"
+  end
+  
+  def test_call_arg_returns_block_return_value
+    eq 614, "{ block :arg { Number(614) } call_arg Token(arg) }"
+  end
+  
+  def test_call_arg_calls_block
+    set? :value, 614, "{ block :arg { :value Number(614) } call_arg Token(arg) }"
+  end
+  
+  def test_call_arg_calls_block_with_argument
+    set? :value, 614, "{ block :arg { :value :arg } call_arg Number(614) }"
+  end
+end

data/test/methods/test_class.rb

@@ -0,0 +1,34 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestClass < TestQ
+  def test_class_p_returns_self
+    returns :c, "{ :c class class? }"
+  end
+  
+  def test_init_returns_instance
+    script = "{ :c class init Number(614) }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(env.get(:c), env.return_value)
+  end
+  
+  def test_init_sets_init_value
+    eq 614, "{ class init Number(614) init_value }"
+  end
+  
+  def test_module_p_returns_false
+    eq false, "{ class module? }"
+  end
+  
+  def test_new_returns_instance
+    script = "{ :c class new }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(env.get(:c), env.return_value)
+  end
+end

data/test/methods/test_dynamic.rb

@@ -0,0 +1,158 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestDynamic < TestQ
+  def test_def_returns_self
+    returns :o, "{ :o new def Token(foo) { Number(614) } }"
+  end
+  
+  def test_def_defines_method
+    script = "{ new def Token(foo) { Number(614) } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(614, env.return_value.foo)
+  end
+  
+  def test_def_defines_method_where_self_is_the_caller
+    script = "{ new def Token(foo) { self } }"
+    object = Q_Device.new(script).execute.return_value
+    
+    assert_equal(object, object.foo)
+  end
+  
+  def test_dynamic_p_returns_self
+    returns :o, "{ :o new dynamic? }"
+  end
+  
+  def test_eval_returns_block_return_value
+    eq 614, "{ new eval { Number(614) } }"
+  end
+  
+  def test_eval_calls_block
+    set? :value, 614, "{ new eval { :value Number(614) } }"
+  end
+  
+  def test_eval_calls_block_with_object_as_self
+    script = "{ :o new eval { :value self } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(env.get(:o), env.get(:value))
+  end
+  
+  def test_eval_arg_returns_block_return_value
+    eq 614, "{ new eval_arg Token(arg) { Number(614) } }"
+  end
+  
+  def test_eval_arg_calls_block
+    set? :value, 614, "{ new eval_arg Token(arg) { :value Number(614) } }"
+  end
+  
+  def test_eval_arg_calls_block_with_object_as_self
+    script = "{ :o new eval_arg Token(arg) { :value self } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(env.get(:o), env.get(:value))
+  end
+  
+  def test_eval_arg_calls_block_with_argument
+    set? :value, 614, "{ :o new eval_arg Number(614) :x { :value :x } }"
+  end
+  
+  def test_extend_returns_self
+    returns :o, "{ :o new extend module }"
+  end
+  
+  def test_extend_includes_module
+    script = "{ new extend { module def Token(foo) { Number(614) } } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(614, env.return_value.foo)
+  end
+  
+  def test_extend_does_not_include_class
+    script = "{ new include { class def Token(foo) { Number(614) } } }"
+    env = Q_Device.new(script).execute
+    
+    assert_raises(NoMethodError) { env.return_value.foo }
+  end
+  
+  def test_iget_returns_instance_variable_value
+    eq 614, "{ :o new iset Number(614) Token(ivar) :o iget Token(ivar) }"
+  end
+  
+  def test_iget_returns_nil_for_unknown_variable_name
+    eq nil, "{ new iget Token(ivar) }"
+  end
+  
+  def test_iget_returns_nil_for_illegal_variable_name
+    eq nil, "{ new iget Token(\t) }"
+  end
+  
+  def test_init_value_returns_init_value
+    eq 614, "{ init Number(614) init_value }"
+  end
+  
+  def test_init_value_returns_nil_for_non_initialized_objects
+    eq nil, "{ new init_value }"
+  end
+  
+  def test_instance_p_returns_true_when_object_is_instance_of_class
+    eq true, "{ :c class new instance? :c }"
+  end
+  
+  def test_instance_p_returns_false_when_object_is_not_instance_of_class
+    eq false, "{ new instance? { class } }"
+  end
+  
+  def test_is_p_returns_true_when_object_is_instance_of_class
+    eq true, "{ :c class new is? :c }"
+  end
+  
+  def test_is_p_returns_false_when_object_is_not_instance_of_class
+    eq false, "{ new is? { class } }"
+  end
+  
+  def test_is_p_returns_true_when_object_includes_module
+    eq true, "{ { class include { :m module } } new is? :m }"
+  end
+  
+  def test_is_p_returns_false_when_object_does_not_include_module
+    eq false, "{ new is? module }"
+  end
+  
+  def test_iset_returns_instance_variable_value
+    eq 614, "{ new iset Number(614) Token(ivar) }"
+  end
+  
+  def test_iset_sets_instance_variable_value
+    eq 614, "{ :o new iset Number(614) Token(ivar) :o iget Token(ivar) }"
+  end
+  
+  def test_iset_returns_nil_for_illegal_variable_name
+    eq nil, "{ new iset Number(614) Token(\t) }"
+  end
+  
+  def test_metaclass_returns_object_class
+    returns :c, "{ :c class new metaclass }"
+  end
+  
+  def test_send_calls_method
+    set? :value, 614, "{ new def Token(foo) { :value Number(614) } send Token(foo) }"
+  end
+  
+  def test_send_returns_method_return_value
+    eq 614, "{ new def Token(foo) { Number(614) } send Token(foo) }"
+  end
+  
+  def test_send_arg_calls_method
+    set? :value, 614, "{ new def Token(foo) :arg { :value :arg } send_arg Token(foo) Number(614) }"
+  end
+  
+  def test_send_arg_returns_method_return_value
+    eq 614, "{ new def Token(foo) :arg { :arg add Number(613) } send_arg Token(foo) Number(1) }"
+  end
+end

data/test/methods/test_false.rb

@@ -0,0 +1,60 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestFalse < TestQ
+  def test_and_returns_false
+    eq false, "{ false and Token(a) }"
+  end
+  
+  def test_choose_returns_object_2
+    eq :b, "{ choose false Token(a) Token(b) }"
+  end
+  
+  def test_false_p_returns_true
+    eq true, "{ false false? }"
+  end
+  
+  def test_if_returns_nil
+    eq nil, "{ if false { Token(a) } }"
+  end
+  
+  def test_not_returns_true
+    eq true, "{ not false }"
+  end
+  
+  def test_or_returns_object
+    eq :a, "{ false or Token(a) }"
+  end
+  
+  def test_stringify_returns_false_string
+    eq "false", "{ false stringify }"
+  end
+  
+  def test_tally_returns_negative_one
+    eq -1, "{ false tally }"
+  end
+  
+  def test_unless_returns_block_return_value
+    eq :a, "{ unless false { Token(a) } }"
+  end
+  
+  def test_unless_calls_block
+    set? :value, 614, "{ unless false { :value Number(614) } }"
+  end
+  
+  def test_xor_false_returns_false
+    eq false, "{ false xor false }"
+  end
+  
+  def test_xor_nil_returns_false
+    eq false, "{ false xor nil }"
+  end
+  
+  def test_xor_true_returns_true
+    eq true, "{ false xor true }"
+  end
+end

data/test/methods/test_hash.rb

@@ -0,0 +1,10 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestHash < TestQ
+  
+end

data/test/methods/test_implicit.rb

@@ -0,0 +1,332 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestImplicit < TestQ
+  def test_all_p
+  end
+  
+  def test_any_p
+  end
+  
+  def test_array_returns_empty_array
+    eq [], "{ array }"
+  end
+  
+  def test_arrays_returns_array_of_all_arrays_in_queue
+    eq [[],[],[]], "{ array array array arrays }"
+  end
+  
+  def test_block_returns_next_block_as_an_object
+    script = "{ block { } }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(Proc, env.return_value)
+  end
+  
+  def test_blocks_returns_array_of_all_blocks_in_queue
+    script = "{ block { } block { } block { } blocks }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(3, env.return_value.length)
+    assert_equal(true, env.return_value.all? {|x| x.is_a?(Proc) })
+  end
+  
+  def test_break
+  end
+  
+  def test_class_returns_a_new_class
+    script = "{ class }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(Class, env.return_value)
+  end
+  
+  def test_classes_returns_array_of_all_classes_in_queue
+    script = "{ class class class classes }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(3, env.return_value.length)
+    assert_equal(true, env.return_value.all? {|x| x.is_a?(Class) })
+  end
+  
+  def test_compact_returns_array_of_all_non_nil_items_in_queue
+    eq [:a,:b], "{ Token(a) nil Token(b) nil compact elect }"
+  end
+  
+  def test_compact_leaves_nils_in_queue
+    eq [:a, nil, :b, nil, [:a,:b]], "{ Token(a) nil Token(b) nil compact objects }"
+  end
+  
+  def test_compact_bang_returns_array_of_all_non_nil_items_in_queue
+    eq [:a,:b], "{ Token(a) nil Token(b) nil compact! elect }"
+  end
+  
+  def test_compact_bang_removes_nils_from_queue
+    eq [:a, :b, [:a,:b]], "{ Token(a) nil Token(b) nil compact! objects }"
+  end
+  
+  def test_count_returns_number_of_matching_objects_left_in_queue
+    eq 2, "{ nil Token(a) nil Token(b) nil count elect }"
+  end
+  
+  # figure out why this doesn't work with nil,
+  #   e.g. "{ nil nil nil count_by :x { :x nil? } }"
+  def test_count_by_returns_number_of_objects_in_queue_for_which_block_returns_true
+    eq 2, "{ nil Token(a) Token(b) count_by :x { :x token? } elect }"
+  end
+  
+  def test_def_returns_env_object
+    script = "{ def Token(foo) { Number(614) } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(env.object, env.return_value)
+  end
+  
+  def test_def_defines_method
+    script = "{ def Token(foo) { Number(614) } }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(614, env.object.foo)
+  end
+  
+  def test_def_defines_method_where_self_is_the_caller
+    script = "{ def Token(foo) { self } }"
+    object = Q_Device.new(script).execute.object
+    
+    assert_equal(object, object.foo)
+  end
+  
+  def test_e_returns_e
+    eq Number.e, "{ e }"
+  end
+  
+  def test_each
+  end
+  
+  def test_elect_returns_last_item_in_queue
+    eq :c, "{ Token(a) Token(b) Token(c) elect }"
+  end
+  
+  def test_elect_removes_other_items_from_the_queue
+    eq 1, "{ Token(a) Token(b) Token(c) elect objects length }"
+  end
+  
+  def test_false_returns_false
+    eq false, "{ false }"
+  end
+  
+  def test_falses_returns_array_of_all_falses_in_queue
+    eq [false, false, false], "{ false false false falses }"
+  end
+  
+  def test_hash_returns_new_empty_hash
+    eq({}, "{ hash }")
+  end
+  
+  def test_hashes_returns_array_of_all_hashes_in_queue
+    eq [{},{},{}], "{ hash hash hash hashes }"
+  end
+  
+  def test_i_returns_i
+    eq Complex(0,-1), "{ i }"
+  end
+  
+  def test_jump_if_calls_block
+    set? :value, 1, "{ jump_if { :value one } }"
+  end
+  
+  def test_jump_if_terminates_execution_of_enclosing_block_when_block_returns_true
+    set? :value, nil, "{ { jump_if { true } :value one } }"
+  end
+  
+  def test_jump_if_does_not_terminate_execution_of_enclosing_block_when_block_returns_false
+    set? :value, 1, "{ { jump_if { false } :value one } }"
+  end
+  
+  def test_jump
+  end
+  
+  def test_loop
+  end
+  
+  def test_map
+  end
+  
+  def test_many_p
+  end
+  
+  def test_module_returns_new_module
+    script = "{ module }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(Module, env.return_value)
+  end
+  
+  def test_modules_returns_array_of_all_modules_in_queue
+    script = "{ module module module modules }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(3, env.return_value.length)
+    assert_equal(true, env.return_value.all? {|x| x.is_a?(Module) })
+  end
+  
+  def test_nan_returns_nan
+    eq Number.nan, "{ nan }"
+  end
+  
+  def test_neg_inf_returns_negative_infinity
+    eq Number.neg_inf, "{ neg_inf }"
+  end
+  
+  def test_neg_one_returns_negative_one
+    eq -1, "{ neg_one }"
+  end
+  
+  def test_new_returns_new_dynamic_object
+    script = "{ new }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(QDynamic, env.return_value.to_q)
+  end
+  
+  def test_newline_returns_newline_string
+    eq ?\n, "{ newline }"
+  end
+  
+  def test_nil_returns_nil
+    eq nil, "{ nil }"
+  end
+  
+  def test_nils_returns_array_of_all_nils_in_queue
+    eq [nil, nil, nil], "{ nil nil nil nils }"
+  end
+  
+  def test_none_p
+  end
+  
+  def test_now_returns_current_time
+    script = "{ now }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(Time.now.round, env.return_value.round)
+  end
+  
+  def test_numbers_returns_array_of_all_numbers_in_queue
+    eq [1, 2, 3], "{ Number(1) Number(2) Number(3) numbers }"
+  end
+  
+  def test_objects_returns_array_of_all_objects_in_queue
+    eq [1, :a, true], "{ Number(1) Token(a) true objects }"
+  end
+  
+  def test_one_returns_one
+    eq 1, "{ one }"
+  end
+  
+  def test_one_p
+  end
+  
+  def test_pi_returns_pi
+    eq Number.pi, "{ pi }"
+  end
+  
+  def test_pos_inf_returns_positive_infinity
+    eq Number.pos_inf, "{ pos_inf }"
+  end
+  
+  def test_self
+  end
+  
+  def test_skip_a_returns_object_b
+    eq :b, "{ Token(a) Token(b) skip_a }"
+  end
+  
+  def test_skip_b_returns_object_a
+    eq :a, "{ Token(a) Token(b) skip_b }"
+  end
+  
+  def test_space_returns_space_string
+    eq ' ', "{ space }"
+  end
+  
+  def test_string_returns_empty_string
+    eq '', "{ string }"
+  end
+  
+  def test_strings_returns_array_of_all_strings_in_queue
+    eq [?a,?b,?c], "{ String(a) String(b) String(c) strings }"
+  end
+  
+  def test_tab_returns_tab_string
+    eq ?\t, "{ tab }"
+  end
+  
+  def test_three_returns_three
+    eq 3, "{ three }"
+  end
+  
+  def test_times_returns_array_of_all_times_in_queue
+    script = "{ now now now times }"
+    env = Q_Device.new(script).execute
+    
+    assert_equal(3, env.return_value.length)
+    assert_equal(true, env.return_value.all? {|x| x.is_a?(Time) })
+  end
+  
+  def test_tokens_returns_array_of_all_tokens_in_queue
+    eq [:a,:b,:c], "{ Token(a) Token(b) Token(c) tokens }"
+  end
+  
+  def test_true_returns_true
+    eq true, "{ true }"
+  end
+  
+  def test_trues_returns_array_of_all_trues_in_queue
+    eq [true, true, true], "{ true true true trues }"
+  end
+  
+  def test_two_returns_two
+    eq 2, "{ two }"
+  end
+  
+  def test_uniq_returns_array_of_unique_items_in_queue
+    eq [:a, 1, nil], "{ Token(a) Token(a) Number(1) nil nil uniq elect }"
+  end
+  
+  def test_uniq_leaves_duplicate_items_in_queue
+    eq [:a,:a,1,nil,nil,[:a,1,nil]], "{ Token(a) Token(a) Number(1) nil nil uniq objects }"
+  end
+  
+  def test_uniq_bang_returns_array_of_unique_items_in_queue
+    eq [:a, 1, nil], "{ Token(a) Token(a) Number(1) nil nil uniq! elect }"
+  end
+  
+  def test_uniq_bang_removes_duplicate_items_from_queue
+    eq [:a,1,nil,[:a,1,nil]], "{ Token(a) Token(a) Number(1) nil nil uniq! objects }"
+  end
+  
+  def test_unset_returns_value_of_last_used_variable
+    eq 614, "{ :x unset }", x: 614
+  end
+  
+  def test_unset_clears_value_of_last_used_variable
+    script = "{ :x unset }"
+    env = Q_Device.new(script).execute(x: 614)
+    
+    assert_equal(nil, env.get(:x))
+  end
+  
+  def test_until
+  end
+  
+  def test_while
+  end
+  
+  def test_zero_returns_zero
+    eq 0, "{ zero }"
+  end
+end