q-language 1.0.0

data/test/methods/test_module.rb

@@ -0,0 +1,55 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestModule < TestQ
+  def test_def_returns_self
+    returns :m, "{ :m module def Token(foo) { Number(614) } }"
+  end
+  
+  def test_def_defines_method
+    script = "{ module def Token(foo) { Number(614) } }"
+    object = Object.new.extend(Q_Device.new(script).execute.return_value)
+    
+    assert_equal(614, object.foo)
+  end
+  
+  def test_def_defines_method_where_self_is_the_caller
+    script = "{ module def Token(foo) { self } }"
+    object = Object.new.extend(Q_Device.new(script).execute.return_value)
+    
+    assert_equal(object, object.foo)
+  end
+  
+  def test_include_returns_self
+    returns :m, "{ :m module include module }"
+  end
+  
+  def test_include_includes_module
+    script = "{ module include { module def Token(foo) { Number(614) } } }"
+    object = Object.new.extend(Q_Device.new(script).execute.return_value)
+    
+    assert_equal(614, object.foo)
+  end
+  
+  def test_include_does_not_include_class
+    script = "{ module include { class def Token(foo) { Number(614) } } }"
+    object = Object.new.extend(Q_Device.new(script).execute.return_value)
+    
+    assert_raises(NoMethodError) { object.foo }
+  end
+  
+  def test_include_avoids_cyclic_include_error
+    script = "{ :m module include { module include :m } }"
+    Q_Device.new(script).execute
+    
+    # No error means it passed
+  end
+  
+  def test_module_p_returns_self
+    returns :m, "{ :m module module? }"
+  end
+end

data/test/methods/test_nil.rb

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

data/test/methods/test_number.rb

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

data/test/methods/test_object.rb

@@ -0,0 +1,157 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestObject < TestQ
+  def test_and_returns_argument
+    eq :a, "{ new and Token(a) }"
+  end
+  
+  def test_array_p_returns_false
+    eq false, "{ new array? }"
+  end
+  
+  def test_block_p_returns_false
+    eq false, "{ new block? }"
+  end
+  
+  def test_break
+  end
+  
+  def test_choose_returns_object_1
+    eq :a, "{ new choose Token(a) Token(b) }"
+  end
+  
+  def test_class_p_returns_false
+    eq false, "{ new class? }"
+  end
+  
+  def test_dup_returns_a_duplicate
+    script = "{ :o new dup }"
+    env = Q_Device.new(script).execute
+    
+    assert_instance_of(env.return_value.class, env.return_value)
+  end
+  
+  def test_dup_returns_self_when_duplication_is_disallowed
+    eq true, "{ true dup }"
+  end
+  
+  def test_dynamic_p_returns_false
+    eq false, "{ true dynamic? }"
+  end
+  
+  def test_eq_p_returns_true_when_object_is_eq
+    eq true, "{ String(foo) eq? String(foo) }"
+  end
+  
+  def test_eq_p_returns_false_when_object_is_not_eq
+    eq false, "{ new eq? new }"
+  end
+  
+  def test_eqq_p_returns_true_when_object_is_eqq
+    eq true, "{ :o new eqq? :o }"
+  end
+  
+  def test_eqq_p_returns_false_when_object_is_not_eqq
+    eq false, "{ new eqq? new }"
+  end
+  
+  def test_false_p_returns_false
+    eq false, "{ new false? }"
+  end
+  
+  def test_hash_p_returns_false
+    eq false, "{ new hash? }"
+  end
+  
+  def test_if_returns_block_return_value
+    eq :a, "{ if new { Token(a) } }"
+  end
+  
+  def test_if_calls_block
+    set? :value, :a, "{ if new { :value Token(a) Token(b) } }"
+  end
+  
+  def test_if_skips_the_rest_of_the_block
+    set? :value, nil, "{ if new { } :value Token(a) }"
+  end
+  
+  def test_jump
+  end
+  
+  def test_module_p_returns_false
+    eq false, "{ new module? }"
+  end
+  
+  def test_neq_p_returns_false_when_object_is_eq
+    eq false, "{ String(foo) neq? String(foo) }"
+  end
+  
+  def test_neq_p_returns_true_when_object_is_not_eq
+    eq true, "{ new neq? new }"
+  end
+  
+  def test_nil_p_returns_false
+    eq false, "{ new nil? }"
+  end
+  
+  def test_not_returns_false
+    eq false, "{ not new }"
+  end
+  
+  def test_number_p_returns_false
+    eq false, "{ new number? }"
+  end
+  
+  def test_or_returns_self
+    eq true, "{ true or Token(a) }"
+  end
+  
+  def test_same_p_returns_true_when_object_is_same
+    eq true, "{ :o new same? :o }"
+  end
+  
+  def test_same_p_returns_true_when_object_is_not_same
+    eq false, "{ String(foo) same? String(foo) }"
+  end
+  
+  def test_string_p_returns_false
+    eq false, "{ new string? }"
+  end
+  
+  def test_tally_returns_one
+    eq 1, "{ new tally }"
+  end
+  
+  def test_time_p_returns_false
+    eq false, "{ new time? }"
+  end
+  
+  def test_token_p_returns_false
+    eq false, "{ new token? }"
+  end
+  
+  def test_false_p_returns_false
+    eq false, "{ new false? }"
+  end
+  
+  def test_unless_returns_nil
+    eq nil, "{ unless new { Token(a) } }"
+  end
+  
+  def test_use_returns_self
+    returns :o, "{ use :o new { Token(a) } }"
+  end
+  
+  def test_use_calls_block
+    set? :value, 614, "{ use new { :value Number(614) } }"
+  end
+  
+  def test_use_calls_block_with_self_as_argument
+    set? :value, 614, "{ use Number(614) :arg { :value :arg } }"
+  end
+end

data/test/methods/test_string.rb

@@ -0,0 +1,271 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestString < TestQ
+  def test_add_returns_string_concatenation
+    eq 'abcdef', "{ String(abc) add String(def) }"
+  end
+  
+  def test_add_all_returns_string_concatenation
+    eq 'abcdefghi', "{ String(abc) String(def) String(ghi) add_all }"
+  end
+  
+  def test_at_n_returns_nth_character
+    eq ?b, "{ String(abc) at Number(1) }"
+  end
+  
+  def test_at_outside_of_range_returns_nil
+    eq nil, "{ String(abc) at Number(100) }"
+  end
+  
+  def test_between_p_returns_true_when_equal_to_lowest_string
+    eq true, "{ :s1 between? :s1 :s3 }", s1: ?a, s2: ?b, s3: ?c
+  end
+  
+  def test_between_p_returns_true_when_equal_to_highest_string
+    eq true, "{ :s3 between? :s1 :s3 }", s1: ?a, s2: ?b, s3: ?c
+  end
+  
+  def test_between_p_returns_false_when_lower_than_lowest_string
+    eq false, "{ :s1 between? :s2 :s3 }", s1: ?a, s2: ?b, s3: ?c
+  end
+  
+  def test_between_p_returns_false_when_higher_than_highest_string
+    eq false, "{ :s3 between? :s1 :s2 }", s1: ?a, s2: ?b, s3: ?c
+  end
+  
+  def test_between_p_returns_true_when_between_highest_and_lowest_strings
+    eq true, "{ :s2 between? :s1 :s3 }", s1: ?a, s2: ?b, s3: ?c
+  end
+  
+  def test_capitalize_returns_capitalized_string
+    eq 'Abc', "{ String(abc) capitalize }"
+  end
+  
+  def test_capitalize_bang_returns_capitalized_string
+    eq 'Abc', "{ String(abc) capitalize! }"
+  end
+  
+  def test_capitalize_bang_returns_same_string
+    returns :s, "{ :s String(abc) capitalize! }"
+  end
+  
+  def test_clear_returns_empty_string
+    eq '', "{ String(abc) clear }"
+  end
+  
+  def test_clear_returns_same_string
+    returns :s, "{ :s String(abc) clear }"
+  end
+  
+  def test_downcase_returns_lowercase_string
+    eq 'abc', "{ String(AbC) downcase }"
+  end
+  
+  def test_downcase_bang_returns_lowercase_string
+    eq 'abc', "{ String(AbC) downcase! }"
+  end
+  
+  def test_downcase_bang_returns_same_string
+    returns :s, "{ :s String(AbC) downcase! }"
+  end
+  
+  def test_each_returns_self
+    returns :s, "{ :s String(abc) each { } }"
+  end
+  
+  def test_each_calls_block_once_per_character
+    eq 3, "{ String(abc) each { :a push i } :a elect length }", a: []
+  end
+  
+  def test_each_terminates_upon_break
+    eq 1, "{ String(abc) each { :a push i break_if { true } } :a elect length }", a: []
+  end
+  
+  def test_each_continues_upon_jump
+    eq 3, "{ String(abc) each { :a push i jump_if { true } :a elect push i } :a elect length }", a: []
+  end
+  
+  def test_each_terminates_upon_break
+    eq 1, "{ String(abc) each { :a push i break_if { true } } :a elect length }", a: []
+  end
+  
+  def test_each_calls_block_with_each_character_as_argument
+    eq [?a, ?b, ?c], "{ String(abc) each :c { :a push :c } :a elect }", a: []
+  end
+  
+  def test_each_line_returns_self
+    returns :s, "{ :s String(abc) each_line { } }"
+  end
+  
+  def test_each_calls_block_once_per_line
+    eq 3, "{ String(a\nb\nc) each_line { :a push i } :a elect length }", a: []
+  end
+  
+  def test_each_line_continues_upon_jump
+    eq 3, "{ String(a\nb\nc) each_line { :a push i jump_if { true } :a elect push i } :a elect length }", a: []
+  end
+  
+  def test_each_line_terminates_upon_break
+    eq 1, "{ String(a\nb\nc) each_line { :a push i break_if { true } } :a elect length }", a: []
+  end
+  
+  def test_each_line_calls_block_with_each_line_as_argument
+    eq [?a, ?b, ?c], "{ String(a\nb\nc) each_line :l { :a push { :l strip } } :a elect }", a: []
+  end
+  
+  def test_empty_p_returns_true_for_empty_string
+    eq true, "{ String() empty? }"
+  end
+  
+  def test_empty_p_returns_false_for_nonempty_string
+    eq false, "{ String(abc) empty? }"
+  end
+  
+  def test_end_with_p_returns_true_when_ends_with_string
+    eq true, "{ String(abc) end_with? String(bc) }"
+  end
+  
+  def test_end_with_p_returns_false_when_does_not_end_with_string
+    eq false, "{ String(abc) end_with? String(ab) }"
+  end
+  
+  def test_include_p_returns_true_when_includes_string
+    eq true, "{ String(abc) include? String(bc) }"
+  end
+  
+  def test_include_p_returns_false_when_does_not_include_string
+    eq false, "{ String(abc) include? String(cb) }"
+  end
+  
+  def test_index_returns_index_of_string
+    eq 1, "{ String(abc) index String(b) }"
+  end
+  
+  def test_index_returns_nil_when_no_such_string
+    eq nil, "{ String(abc) index String(d) }"
+  end
+  
+  def test_length_returns_string_length
+    eq 3, "{ String(abc) length }"
+  end
+  
+  def test_next_returns_next_string
+    eq 'abd', "{ String(abc) next }"
+  end
+  
+  def test_next_bang_returns_next_string
+    eq 'abd', "{ String(abc) next! }"
+  end
+  
+  def test_next_bang_returns_same_string
+    returns :s, "{ :s String(abc) next! }"
+  end
+  
+  def test_partition_returns_string_partitioned_into_array
+    eq ['', ?a, 'bc'], "{ String(abc) partition String(a) }"
+    eq [?a, ?b, ?c], "{ String(abc) partition String(b) }"
+    eq ['ab', ?c, ''], "{ String(abc) partition String(c) }"
+    eq ['abc', '', ''], "{ String(abc) partition String(d) }"
+  end
+  
+  def test_push_returns_string_concatenation
+    eq 'abcdef', "{ String(abc) push String(def) }"
+  end
+  
+  def test_push_returns_same_string
+    returns :s, "{ :s String(abc) push String(def) }"
+  end
+  
+  def test_push_all_returns_string_concatenation
+    eq 'abcdefghi', "{ String(abc) String(def) String(ghi) push_all }"
+  end
+  
+  def test_push_all_returns_same_string
+    returns :s, "{ :s String(abc) String(def) String(ghi) push_all }"
+  end
+  
+  def test_replace_returns_new_string_value
+    eq 'def', "{ String(abc) replace String(def) }"
+  end
+  
+  def test_replace_returns_same_string
+    returns :s, "{ :s String(abc) replace String(def) }"
+  end
+  
+  def test_reverse_returns_reversed_string
+    eq 'cba', "{ String(abc) reverse }"
+  end
+  
+  def test_reverse_bang_returns_reversed_string
+    eq 'cba', "{ String(abc) reverse! }"
+  end
+  
+  def test_reverse_bang_returns_same_string
+    returns :s, "{ :s String(abc) reverse! }"
+  end
+  
+  def test_split_returns_string_split_into_array
+    eq [?a, ?c], "{ String(abc) split String(b) }"
+  end
+  
+  def test_start_with_p_returns_true_when_starts_with_string
+    eq true, "{ String(abc) start_with? String(ab) }"
+  end
+  
+  def test_start_with_p_returns_false_when_does_not_start_with_string
+    eq false, "{ String(abc) start_with? String(bc) }"
+  end
+  
+  def test_string_p_returns_self
+    eq 'abc', "{ String(abc) string? }"
+  end
+  
+  def test_stringify_returns_duplicate_string
+    eq 'abc', "{ String(abc) stringify }"
+  end
+  
+  def test_strip_returns_stripped_string
+    eq 'abc', "{ String(\t\tabc\n) strip }"
+  end
+  
+  def test_strip_bang_returns_stripped_string
+    eq 'abc', "{ String(\t\tabc\n) strip! }"
+  end
+  
+  def test_strip_bang_returns_same_string
+    returns :s, "{ :s String(\t\tabc\n) strip! }"
+  end
+  
+  def test_swapcase_returns_swapped_case_string
+    eq 'AbC', "{ String(aBc) swapcase }"
+  end
+  
+  def test_swapcase_bang_returns_swapped_case_string
+    eq 'AbC', "{ String(aBc) swapcase! }"
+  end
+  
+  def test_swapcase_bang_returns_same_string
+    returns :s, "{ :s String(aBc) swapcase! }"
+  end
+  
+  def test_tokenize_returns_token
+    eq :abc, "{ String(abc) tokenize }"
+  end
+  
+  def test_upcase_returns_uppercase_string
+    eq 'ABC', "{ String(aBc) upcase }"
+  end
+  
+  def test_upcase_bang_returns_uppercase_string
+    eq 'ABC', "{ String(aBc) upcase! }"
+  end
+  
+  def test_upcase_bang_returns_same_string
+    returns :s, "{ :s String(aBc) upcase! }"
+  end
+end