spec/date_spec.rb in nydp-0.1.3 vs spec/date_spec.rb in nydp-0.1.4

@@ -1,10 +1,11 @@
 require 'spec_helper'
 
 describe Nydp::Date do
 
-  let(:ns) { { } }
+  let(:ns) { { }           }
+  let(:vm) { Nydp::VM.new  }
 
   it "converts ruby Date to Nydp::Date" do
     rd = Date.parse "2015-06-08"
     nd = Nydp.r2n rd, ns
 
@@ -12,16 +13,82 @@
     expect(nd.to_s).   to eq "2015-06-08"
     expect(nd.inspect).to eq "#<Date: 2015-06-08 ((2457182j,0s,0n),+0s,2299161j)>"
     expect(nd.to_ruby).to eq Date.parse("2015-06-08")
   end
 
+  it "creates a new date" do
+    df = Nydp::Builtin::Date.new
+    df.invoke vm, pair_list([2015, 11, 18])
+    nd = vm.pop_arg
+    expect(nd).to be_a Nydp::Date
+    expect(nd.ruby_date).to eq Date.parse("2015-11-18")
+  end
+
   it "returns date components" do
     rd = Date.parse "2015-06-08"
     nd = Nydp.r2n rd, ns
 
     expect(nd[:year]). to eq 2015
     expect(nd[:month]).to eq 6
     expect(nd[:day]).  to eq 8
+  end
+
+  describe "date maths" do
+    let(:d0) { Nydp.r2n Date.today, ns       }
+    let(:d1) { Nydp.r2n (Date.today + 6), ns }
+
+    it "works with builtin minus" do
+      minus = Nydp::Builtin::Minus.new
+
+      minus.invoke vm, pair_list([d1, d0])
+      diff = vm.pop_arg
+
+      expect(d0).to be_a Nydp::Date
+      expect(diff).to eq 6
+    end
+
+    it "works with builtin greater-than when true" do
+      f = Nydp::Builtin::GreaterThan.new
+
+      f.invoke vm, pair_list([d1, d0])
+
+      expect(vm.pop_arg).to eq Nydp.T
+    end
+
+    it "works with builtin greater-than when false" do
+      f = Nydp::Builtin::GreaterThan.new
+
+      f.invoke vm, pair_list([d0, d1])
+
+      expect(vm.pop_arg).to eq Nydp.NIL
+    end
+
+    it "works with builtin less-than when true" do
+      f = Nydp::Builtin::LessThan.new
+
+      f.invoke vm, pair_list([d0, d1])
+
+      expect(vm.pop_arg).to eq Nydp.T
+    end
+
+    it "works with builtin less-than when false" do
+      f = Nydp::Builtin::LessThan.new
+
+      f.invoke vm, pair_list([d1, d0])
+
+      expect(vm.pop_arg).to eq Nydp.NIL
+    end
+
+    it "works with builtin plus" do
+      plus = Nydp::Builtin::Plus.new
+
+      plus.invoke vm, pair_list([d0, 5])
+      sum = vm.pop_arg
+
+      expect(d0) .to be_a Nydp::Date
+      expect(sum).to be_a Nydp::Date
+      expect(sum.ruby_date).to eq(Date.today + 5)
+    end
   end
 
   it "returns relative dates by year" do
     rd = Date.parse "2015-06-08"
     nd = Nydp.r2n rd, ns