spec/string_atom_spec.rb in nydp-0.1.8 vs spec/string_atom_spec.rb in nydp-0.1.9

@@ -1,9 +1,61 @@
 require "spec_helper"
 
 describe Nydp::StringAtom do
+  let(:bar) { Nydp::StringAtom.new "BAR" }
+  let(:foo) { Nydp::StringAtom.new "FOO" }
+  let(:vm)  { Nydp::VM.new               }
+
+  it "is not equal to a symbol with the same represenation" do
+    string = Nydp::StringAtom.new "harrypotter"
+    symbol = Nydp::Symbol.mk "harrypotter", ns
+    compare = Nydp::StringAtom.new symbol.to_s
+    expect(string == compare).to eq true
+    expect(string == symbol) .to eq false
+  end
+
+  it "is not equal to a list with the same represenation" do
+    string = Nydp::StringAtom.new "(FOO BAR)"
+    list   = Nydp::Pair.from_list [foo, bar]
+    compare = Nydp::StringAtom.new list.to_s
+    expect(string == compare).to eq true
+    expect(string == list)   .to eq false
+  end
+
   it "returns its string in #to_ruby" do
     s = Nydp::StringAtom.new "harrypotter"
     expect(s.to_ruby).to eq "harrypotter"
     expect(s.to_ruby.class).to eq String
+  end
+
+  it "works with builtin greater-than when true" do
+    f = Nydp::Builtin::GreaterThan.new
+
+    f.invoke vm, pair_list([foo, bar])
+
+    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([bar, foo])
+
+    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([bar, foo])
+
+    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([foo, bar])
+
+    expect(vm.pop_arg).to eq Nydp.NIL
   end
 end