nydp 0.1.15 → 0.2.0

data/spec/thread_local_spec.rb

@@ -1,8 +1,6 @@
 require 'spec_helper'
 
 describe Nydp do
-  let(:parser)                { Nydp::Parser.new(ns) }
-
   def run vm, txt
     Nydp::Runner.new(vm, ns, Nydp::StringReader.new(txt)).run
   end
@@ -10,9 +8,8 @@ describe Nydp do
   it "should isolate threadlocal values" do
     Nydp.setup ns
 
-    vm0 = Nydp::VM.new
-    vm1 = Nydp::VM.new
-
+    vm0 = Nydp::VM.new ns
+    vm1 = Nydp::VM.new ns
 
     run vm0, "(hash-set (thread-locals) 'testing (+ 1 2 3))"
     run vm1, "(hash-set (thread-locals) 'testing (+ 6 7 8))"
@@ -23,5 +20,4 @@ describe Nydp do
     expect(val0).to eq 6
     expect(val1).to eq 21
   end
-
 end

data/spec/time_spec.rb

@@ -0,0 +1,48 @@
+require 'spec_helper'
+
+describe Nydp::Date do
+
+  let(:ns)    { { }                          }
+  let(:vm)    { Nydp::VM.new(ns)             }
+  let(:timef) { Nydp::Builtin::Time.instance }
+
+  it "r2n does not convert ruby Time" do
+    rd = Time.now
+    nd = Nydp.r2n rd, ns
+
+    expect(nd).to be_a Time
+    expect(nd).to eq rd
+  end
+
+  it "creates a new Time instance" do
+    timef.invoke vm, Nydp::Pair.from_list([2015, 11, 18, 18, 30, 17])
+    nd = vm.args.pop
+    expect(nd).to be_a Time
+    expect(nd).to eq Time.new(2015, 11, 18, 18, 30, 17)
+  end
+
+  it "creates a new Time instance for #now" do
+    t0 = Time.now
+    timef.invoke_1 vm
+    nd = vm.args.pop
+    t1 = Time.now
+    expect(nd).to be_a Time
+    expect(nd).to be_between(t0, t1)
+  end
+
+  it "creates a new Time instance for #now plus offset" do
+    t0 = Time.now
+    timef.invoke_2 vm, 3.14
+    nd = vm.args.pop
+    t1 = Time.now
+    expect(nd).to be_a Time
+    expect(nd).to be_between((t0 + 3.14), (t1 + 3.14))
+  end
+
+  it "creates a new Time instance for a given Date" do
+    timef.invoke_2 vm, Nydp::Date.new(Date.parse "2006-06-21")
+    nd = vm.args.pop
+    expect(nd).to be_a Time
+    expect(nd).to eq Time.new(2006, 6, 21)
+  end
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: nydp
 version: !ruby/object:Gem::Version
-  version: 0.1.15
+  version: 0.2.0
 platform: ruby
 authors:
 - Conan Dalton
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2016-04-23 00:00:00.000000000 Z
+date: 2016-05-26 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -143,6 +143,7 @@ files:
 - lib/lisp/tests/sort-examples.nydp
 - lib/lisp/tests/string-tests.nydp
 - lib/lisp/tests/syntax-tests.nydp
+- lib/lisp/tests/time-examples.nydp
 - lib/lisp/tests/tuples-examples.nydp
 - lib/lisp/tests/type-of-examples.nydp
 - lib/lisp/tests/unparse-tests.nydp
@@ -155,6 +156,7 @@ files:
 - lib/nydp/builtin/cdr_set.rb
 - lib/nydp/builtin/comment.rb
 - lib/nydp/builtin/cons.rb
+- lib/nydp/builtin/date.rb
 - lib/nydp/builtin/divide.rb
 - lib/nydp/builtin/ensuring.rb
 - lib/nydp/builtin/error.rb
@@ -183,9 +185,9 @@ files:
 - lib/nydp/builtin/string_split.rb
 - lib/nydp/builtin/sym.rb
 - lib/nydp/builtin/thread_locals.rb
+- lib/nydp/builtin/time.rb
 - lib/nydp/builtin/times.rb
 - lib/nydp/builtin/to_string.rb
-- lib/nydp/builtin/today.rb
 - lib/nydp/builtin/type_of.rb
 - lib/nydp/builtin/vm_info.rb
 - lib/nydp/closure.rb
@@ -231,6 +233,7 @@ files:
 - spec/string_token_spec.rb
 - spec/symbol_spec.rb
 - spec/thread_local_spec.rb
+- spec/time_spec.rb
 homepage: http://github.com/conanite/nydp
 licenses:
 - MIT
@@ -271,3 +274,4 @@ test_files:
 - spec/string_token_spec.rb
 - spec/symbol_spec.rb
 - spec/thread_local_spec.rb
+- spec/time_spec.rb

data/lib/nydp/builtin/today.rb

@@ -1,18 +0,0 @@
-class Nydp::Builtin::Today
-  include Nydp::Helper, Nydp::Builtin::Base
-
-  def builtin_invoke vm, args
-    vm.push_arg(Nydp::Date.new Date.today)
-  end
-end
-
-class Nydp::Builtin::Date
-  include Nydp::Helper, Nydp::Builtin::Base
-
-  def builtin_invoke vm, args
-    y = args.car
-    m = args.cdr.car
-    d = args.cdr.cdr.car
-    vm.push_arg(Nydp::Date.new Date.new(y,m,d))
-  end
-end