Contents

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

Version data entries

8 entries across 8 versions & 1 rubygems

Version	Path
nydp-0.1.13.2	spec/string_atom_spec.rb
nydp-0.1.13.1	spec/string_atom_spec.rb
nydp-0.1.13	spec/string_atom_spec.rb
nydp-0.1.12	spec/string_atom_spec.rb
nydp-0.1.11	spec/string_atom_spec.rb
nydp-0.1.10	spec/string_atom_spec.rb
nydp-0.1.9.1	spec/string_atom_spec.rb
nydp-0.1.9	spec/string_atom_spec.rb