q-language 1.0.0

data/test/methods/test_time.rb

@@ -0,0 +1,181 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestTime < TestQ
+  def test_add_returns_the_new_time
+    t = Time.now
+    eq t + 5, "{ :t add Number(5) }", t: t
+  end
+  
+  def test_after_p_returns_true_when_later_than_the_time
+    eq true, "{ :t1 after? :t2 }", t1: t = Time.now, t2: t - 10
+  end
+  
+  def test_after_p_returns_false_when_earlier_than_the_time
+    eq false, "{ :t1 after? :t2 }", t1: t = Time.now, t2: t + 10
+  end
+  
+  def test_after_p_returns_false_when_equal_to_the_time
+    eq false, "{ :t1 after? :t2 }", t1: t = Time.now, t2: t
+  end
+  
+  def test_before_p_returns_true_when_earlier_than_the_time
+    eq true, "{ :t1 before? :t2 }", t1: t = Time.now, t2: t + 10
+  end
+  
+  def test_before_p_returns_false_when_later_than_the_time
+    eq false, "{ :t1 before? :t2 }", t1: t = Time.now, t2: t - 10
+  end
+  
+  def test_before_p_returns_false_when_equal_to_the_time
+    eq false, "{ :t1 before? :t2 }", t1: t = Time.now, t2: t
+  end
+  
+  def test_between_p_returns_true_when_equal_to_earliest_time
+    eq true, "{ :t1 between? :t1 :t3 }", t1: t = Time.now, t2: t + 50, t3: t + 100
+  end
+  
+  def test_between_p_returns_true_when_equal_to_latest_time
+    eq true, "{ :t3 between? :t1 :t3 }", t1: t = Time.now, t2: t + 50, t3: t + 100
+  end
+  
+  def test_between_p_returns_false_when_earlier_than_earliest_time
+    eq false, "{ :t1 between? :t2 :t3 }", t1: t = Time.now, t2: t + 50, t3: t + 100
+  end
+  
+  def test_between_p_returns_false_when_later_than_latest_time
+    eq false, "{ :t3 between? :t1 :t2 }", t1: t = Time.now, t2: t + 50, t3: t + 100
+  end
+  
+  def test_between_p_returns_true_when_between_earliest_and_latest_times
+    eq true, "{ :t2 between? :t1 :t3 }", t1: t = Time.now, t2: t + 50, t3: t + 100
+  end
+  
+  def test_difference_returns_difference_of_times_in_seconds
+    eq 100, "{ :t2 difference :t1 }", t1: t = Time.now, t2: t + 100
+  end
+  
+  def test_friday_p_returns_true_when_weekday_is_friday
+    eq true, "{ :t friday? }", t: Time.new(2000,1,7)
+  end
+  
+  def test_friday_p_returns_false_when_weekday_is_not_friday
+    eq false, "{ :t friday? }", t: Time.new(2000,1,8)
+  end
+  
+  def test_hour_returns_hour
+    eq 13, "{ :t hour }", t: Time.new(2000,1,1,13)
+  end
+  
+  def test_minute_returns_minute
+    eq 59, "{ :t minute }", t: Time.new(2000,1,1,1,59)
+  end
+  
+  def test_monday_p_returns_true_when_weekday_is_monday
+    eq true, "{ :t monday? }", t: Time.new(2000,1,3)
+  end
+  
+  def test_monday_p_returns_false_when_weekday_is_not_monday
+    eq false, "{ :t monday? }", t: Time.new(2000,1,4)
+  end
+  
+  def test_month_returns_month
+    eq 11, "{ :t month }", t: Time.new(2000,11,1)
+  end
+  
+  def test_next_returns_time_plus_one_second
+    t = Time.now
+    eq t + 1, "{ :t next }", t: t
+  end
+  
+  def test_round_returns_time_rounded_to_nearest_second
+    script = "{ :t round }"
+    env = Q_Device.new(script).execute(t: t = Time.now)
+    
+    assert_equal(0, env.return_value.usec)
+  end
+  
+  def test_saturday_p_returns_true_when_weekday_is_saturday
+    eq true, "{ :t saturday? }", t: Time.new(2000,1,1)
+  end
+  
+  def test_saturday_p_returns_false_when_weekday_is_not_saturday
+    eq false, "{ :t saturday? }", t: Time.new(2000,1,2)
+  end
+  
+  def test_second_returns_second
+    eq 59, "{ :t second }", t: Time.new(2000,1,1,1,1,59)
+  end
+  
+  def test_split_returns_array_of_time_values
+    a = [2000,1,2,3,4,5]
+    eq a, "{ :t split }", t: Time.new(*a)
+  end
+  
+  def test_subtract_returns_the_new_time
+    t = Time.now
+    eq t - 5, "{ :t subtract Number(5) }", t: t
+  end
+  
+  def test_sunday_p_returns_true_when_weekday_is_sunday
+    eq true, "{ :t sunday? }", t: Time.new(2000,1,2)
+  end
+  
+  def test_sunday_p_returns_false_when_weekday_is_not_sunday
+    eq false, "{ :t sunday? }", t: Time.new(2000,1,3)
+  end
+  
+  def test_thursday_p_returns_true_when_weekday_is_thursday
+    eq true, "{ :t thursday? }", t: Time.new(2000,1,6)
+  end
+  
+  def test_thursday_p_returns_false_when_weekday_is_not_thursday
+    eq false, "{ :t thursday? }", t: Time.new(2000,1,7)
+  end
+  
+  def test_time_p_returns_self
+    t = Time.now
+    eq t, "{ :t time? }", t: t
+  end
+  
+  def test_to_number_returns_number
+    t = Time.now
+    eq t.to_f, "{ :t to_number }", t: t
+  end
+  
+  def test_tuesday_p_returns_true_when_weekday_is_tuesday
+    eq true, "{ :t tuesday? }", t: Time.new(2000,1,4)
+  end
+  
+  def test_tuesday_p_returns_false_when_weekday_is_not_tuesday
+    eq false, "{ :t tuesday? }", t: Time.new(2000,1,5)
+  end
+  
+  def test_wednesday_p_returns_true_when_weekday_is_wednesday
+    eq true, "{ :t wednesday? }", t: Time.new(2000,1,5)
+  end
+  
+  def test_wednesday_p_returns_false_when_weekday_is_not_wednesday
+    eq false, "{ :t wednesday? }", t: Time.new(2000,1,6)
+  end
+  
+  def test_weekday_returns_weekday
+    eq 2, "{ :t weekday }", t: Time.new(2000,1,11)
+  end
+  
+  def test_year_day_returns_year_day
+    eq 365, "{ :t year_day }", t: Time.new(1999,12,31)
+  end
+  
+  def test_year_returns_year
+    eq 2000, "{ :t year }", t: Time.new(2000)
+  end
+  
+  def test_yesterday_returns_yesterday
+    eq Time.new(1999,12,31), "{ :t yesterday }", t: Time.new(2000,1,1)
+  end
+end

data/test/methods/test_token.rb

@@ -0,0 +1,92 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestToken < TestQ
+  def test_at_n_returns_nth_character
+    eq ?b, "{ Token(abc) at Number(1) }"
+  end
+  
+  def test_at_outside_of_range_returns_nil
+    eq nil, "{ Token(abc) at Number(100) }"
+  end
+  
+  def test_capitalize_returns_capitalized_token
+    eq :Abc, "{ Token(abc) capitalize }"
+  end
+  
+  def test_downcase_returns_lowercase_token
+    eq :abc, "{ Token(AbC) downcase }"
+  end
+  
+  def test_empty_p_returns_true_for_empty_token
+    eq true, "{ Token() empty? }"
+  end
+  
+  def test_empty_p_returns_false_for_nonempty_token
+    eq false, "{ Token(abc) empty? }"
+  end
+  
+  def test_get_returns_value_of_variable
+    eq 614, "{ get Token(x) }", { x: 614 }
+  end
+  
+  def test_iget_returns_value_of_instance_variable_in_scope
+    eq 614, "{ Token(x) iset Number(614) Token(x) iget }"
+  end
+  
+  def test_iget_does_not_return_value_of_instance_variable_out_of_scope
+    eq nil, "{ Token(x) iset Number(614) class def Token(foo) { iget Token(x) } new send Token(foo) elect }"
+  end
+  
+  def test_iget_returns_nil_for_illegal_variable_name
+    eq nil, "{ Token(\t) iget }"
+  end
+  
+  def test_iset_returns_value
+    eq 614, "{ Token(x) iset Number(614) }"
+  end
+  
+  def test_iset_sets_value_of_instance_variable
+    eq 614, "{ class def Token(set_x) { Token(x) iset Number(614) self } new send Token(set_x) iget Token(x) }"
+  end
+  
+  def test_iset_returns_nil_for_illegal_variable_name
+    eq nil, "{ Token(\t) iset Number(614) }"
+  end
+  
+  def test_length_returns_token_length
+    eq 3, "{ Token(abc) length }"
+  end
+  
+  def test_next_returns_next_token
+    eq :abd, "{ Token(abc) next }"
+  end
+  
+  def test_set_returns_value_of_variable
+    eq 614, "{ Token(x) set Number(614) }"
+  end
+  
+  def test_set_sets_value_of_variable
+    set? :x, 614, "{ Token(x) set Number(614) }"
+  end
+  
+  def test_stringify_returns_string
+    eq 'abc', "{ Token(abc) stringify }"
+  end
+  
+  def test_swapcase_swaps_case_of_token_characters
+    eq :AbC, "{ Token(aBc) swapcase }"
+  end
+  
+  def test_token_p_returns_self
+    eq :abc, "{ Token(abc) token? }"
+  end
+  
+  def test_upcase_returns_uppercase_token
+    eq :ABC, "{ Token(aBc) upcase }"
+  end
+end

data/test/methods/test_true.rb

@@ -0,0 +1,16 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require_relative '../test.rb'
+
+class TestTrue < TestQ
+  def test_stringify_returns_true_string
+    eq "true", "{ true stringify }"
+  end
+  
+  def test_true_p_returns_true
+    eq true, "{ true true? }"
+  end
+end

data/test/test.rb

@@ -0,0 +1,23 @@
+# encoding: UTF-8
+# 
+# Copyright © 2010-2011 Jesse Sielaff
+# 
+
+require 'minitest/autorun'
+require 'q-language'
+require 'number'
+
+class TestQ < MiniTest::Unit::TestCase
+  def eq (value, script, variables = {})
+    assert_equal(Q_Device.new(script).execute(variables).return_value, value)
+  end
+  
+  def returns (variable, script)
+    env = Q_Device.new(script).execute
+    assert_same(env.get(variable), env.return_value)
+  end
+  
+  def set? (variable, value, script)
+    assert_equal(Q_Device.new(script).execute.get(variable), value)
+  end
+end

metadata

@@ -0,0 +1,103 @@
+--- !ruby/object:Gem::Specification 
+name: q-language
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 1.0.0
+platform: ruby
+authors: 
+- Jesse Sielaff
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-10-28 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: number
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: .
+email: jesse.sielaff@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/q-language/device.rb
+- lib/q-language/environment.rb
+- lib/q-language/methods/array.rb
+- lib/q-language/methods/block.rb
+- lib/q-language/methods/class.rb
+- lib/q-language/methods/dynamic.rb
+- lib/q-language/methods/false.rb
+- lib/q-language/methods/hash.rb
+- lib/q-language/methods/implicit.rb
+- lib/q-language/methods/module.rb
+- lib/q-language/methods/nil.rb
+- lib/q-language/methods/number.rb
+- lib/q-language/methods/object.rb
+- lib/q-language/methods/string.rb
+- lib/q-language/methods/time.rb
+- lib/q-language/methods/token.rb
+- lib/q-language/methods/true.rb
+- lib/q-language/node.rb
+- lib/q-language/object.rb
+- lib/q-language/parser.rb
+- lib/q-language/writer.rb
+- lib/q-language.rb
+- test/methods/test_array.rb
+- test/methods/test_block.rb
+- test/methods/test_class.rb
+- test/methods/test_dynamic.rb
+- test/methods/test_false.rb
+- test/methods/test_hash.rb
+- test/methods/test_implicit.rb
+- test/methods/test_module.rb
+- test/methods/test_nil.rb
+- test/methods/test_number.rb
+- test/methods/test_object.rb
+- test/methods/test_string.rb
+- test/methods/test_time.rb
+- test/methods/test_token.rb
+- test/methods/test_true.rb
+- test/test.rb
+- Rakefile
+- .gemtest
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.9.2
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.8
+signing_key: 
+specification_version: 3
+summary: A Ruby-derived language for machine learning.
+test_files: []
+