edn2023 1.1.4

data/spec/edn/parser_spec.rb

@@ -0,0 +1,162 @@
+require 'spec_helper'
+
+describe 'edn_parser' do
+  include RantlyHelpers
+
+  let(:parser) { EDN.new_parser }
+
+  it "can contain comments" do
+    edn = ";; This is some sample data\n[1 2 ;; the first two values\n3]"
+    EDN.read(edn).should == [1, 2, 3]
+  end
+
+  it "can discard using the discard reader macro" do
+    edn = "[1 2 #_3 {:foo #_bar :baz}]"
+    EDN.read(edn).should == [1, 2, {:foo => :baz}]
+  end
+
+  context "element" do
+    it "should consume metadata with the element" do
+      x = EDN.read('^{:doc "test"} [1 2]')
+      x.should == [1, 2]
+      x.metadata.should == {doc: "test"}
+    end
+  end
+
+  context "integer" do
+    it "should consume integers" do
+      rant(RantlyHelpers::INTEGER).each do |int|
+        (EDN.read int.to_s).should == int.to_i
+      end
+    end
+
+    it "should consume integers prefixed with a +" do
+      rant(RantlyHelpers::INTEGER).each do |int|
+        (EDN.read "+#{int.to_i.abs.to_s}").should == int.to_i.abs
+      end
+    end
+  end
+
+  context "float" do
+    it "should consume simple floats" do
+      rant(RantlyHelpers::FLOAT).each do |float|
+        EDN.read(float.to_s).should == float.to_f
+      end
+    end
+
+    it "should consume floats with exponents" do
+      rant(RantlyHelpers::FLOAT_WITH_EXP).each do |float|
+        EDN.read(float.to_s).should == float.to_f
+      end
+    end
+
+    it "should consume floats prefixed with a +" do
+      rant(RantlyHelpers::FLOAT).each do |float|
+        EDN.read("+#{float.to_f.abs.to_s}").should == float.to_f.abs
+      end
+    end
+  end
+
+  context "symbol" do
+    context "special cases" do
+      it "should consume '/'" do
+        EDN.read('/').should == EDN::Type::Symbol.new(:"/")
+      end
+
+      it "should consume '.'" do
+        EDN.read('.').should == EDN::Type::Symbol.new(:".")
+      end
+
+      it "should consume '-'" do
+        EDN.read('-').should == EDN::Type::Symbol.new(:"-")
+      end
+    end
+  end
+
+  context "keyword" do
+    it "should consume any keywords" do
+      rant(RantlyHelpers::SYMBOL).each do |symbol|
+        EDN.read(":#{symbol}").should == symbol.to_sym
+      end
+    end
+  end
+
+  context "string" do
+    it "should consume any string" do
+      rant(RantlyHelpers::RUBY_STRING).each do |string|
+        EDN.read(string.to_edn).should == string
+      end
+    end
+  end
+
+  context "character" do
+    it "should consume any character" do
+      rant(RantlyHelpers::RUBY_CHAR).each do |char|
+        EDN.read(char.to_edn).should == char
+      end
+    end
+  end
+
+  context "vector" do
+    it "should consume an empty vector" do
+      EDN.read('[]').should == []
+      EDN.read('[  ]').should == []
+    end
+
+    it "should consume vectors of mixed elements" do
+      rant(RantlyHelpers::VECTOR).each do |vector|
+        expect { EDN.read(vector) }.to_not raise_error
+      end
+    end
+  end
+
+  context "list" do
+    it "should consume an empty list" do
+      EDN.read('()').should == []
+      EDN.read('( )').should == []
+    end
+
+    it "should consume lists of mixed elements" do
+      rant(RantlyHelpers::LIST).each do |list|
+        expect { EDN.read(list) }.to_not raise_error
+      end
+    end
+  end
+
+  context "set" do
+    it "should consume an empty set" do
+      EDN.read('#{}').should == Set.new
+      EDN.read('#{ }').should == Set.new
+    end
+
+    it "should consume sets of mixed elements" do
+      rant(RantlyHelpers::SET).each do |set|
+        EDN.read(set)
+      end
+    end
+  end
+
+  context "map" do
+    it "should consume maps of mixed elements" do
+      rant(RantlyHelpers::MAP).each do |map|
+        expect { EDN.read(map) }.not_to raise_error
+      end
+    end
+  end
+
+  context "tagged element" do
+    context "#inst" do
+      it "should consume #inst" do
+        rant(RantlyHelpers::INST).each do |element|
+          expect { EDN.read(element) }.not_to raise_error
+        end
+      end
+    end
+
+    it "should consume tagged elements" do
+      rant(RantlyHelpers::TAGGED_ELEMENT).each do |element|
+        expect { EDN.read(element) }.not_to raise_error
+      end
+    end
+  end
+end

data/spec/edn/reader_spec.rb

@@ -0,0 +1,23 @@
+require 'spec_helper'
+
+describe EDN::Reader do
+  let(:reader) { EDN::Reader.new("[1 2] 3 :a {:b c} ") }
+
+  it "should read each value" do
+    reader.read.should == [1, 2]
+    reader.read.should == 3
+    reader.read.should == :a
+    reader.read.should == {:b => ~"c"}
+  end
+
+  it "should respond to each" do
+    reader.each do |element|
+      element.should_not be_nil
+    end
+  end
+
+  it "returns a special end of file value if asked" do
+    4.times { reader.read(:the_end).should_not == :the_end }
+    reader.read(:no_more).should == :no_more
+  end
+end

data/spec/edn_spec.rb

@@ -0,0 +1,114 @@
+require 'spec_helper'
+require 'stringio'
+
+describe EDN do
+  include RantlyHelpers
+
+  ExemplarPattern = "#{File.dirname(__FILE__)}/exemplars/*.edn"
+
+  context 'Exemplar' do
+    edn_files = Dir[ExemplarPattern]
+    edn_files.each do |edn_file|
+      rb_file = edn_file.sub(/\.edn$/, '.rb')
+      it "reads file #{File.basename(edn_file)} correctly" do
+        expected = eval(File.read(rb_file))
+        actual = EDN.read(File.read(edn_file))
+        actual.should == expected
+      end
+
+       it "round trips the value in #{File.basename(edn_file)} correctly" do
+        expected = eval(File.read(rb_file))
+        actual = EDN.read(File.read(edn_file))
+        round_trip = EDN.read(actual.to_edn)
+        round_trip.should == expected
+      end
+    end
+  end
+
+
+  context "#read" do
+    #it "reads from a stream" do
+    #  io = StringIO.new("123")
+    #  EDN.read(io).should == 123
+    #end
+
+    #it "reads mutiple values from a stream" do
+    #  io = StringIO.new("123 456 789")
+    #  EDN.read(io).should == 123
+    #  EDN.read(io).should == 456
+    #  EDN.read(io).should == 789
+    #end
+
+    it "raises an exception on eof by default" do
+      expect { EDN.read('') }.to raise_error
+    end
+
+    #it "allows you to specify an eof value" do
+    #  io = StringIO.new("123 456")
+    #  EDN.read(io, :my_eof).should == 123
+    #  EDN.read(io, :my_eof).should == 456
+    #  EDN.read(io, :my_eof).should == :my_eof
+    #end
+
+    it "allows you to specify nil as an eof value" do
+      EDN.read("", nil).should == nil
+    end
+  end
+
+  context "reading data" do
+    it "treats carriage returns like whitespace" do
+      EDN.read("\r\n[\r\n]\r\n").should == []
+      EDN.read("\r[\r]\r\r").should == []
+    end
+
+    it "reads any valid element" do
+      elements = rant(RantlyHelpers::ELEMENT)
+      elements.each do |element|
+        begin
+          if element == "nil"
+            EDN.read(element).should be_nil
+          else
+            EDN.read(element).should_not be_nil
+          end
+        rescue Exception => ex
+          puts "Bad element: #{element}"
+          raise ex
+        end
+      end
+    end
+  end
+
+  context "#register" do
+    it "uses the identity function when no handler is given" do
+      EDN.register "some/tag"
+      EDN.read("#some/tag {}").class.should == Hash
+    end
+  end
+
+  context "writing" do
+    it "writes any valid element" do
+      elements = rant(RantlyHelpers::ELEMENT)
+      elements.each do |element|
+        expect {
+          begin
+            EDN.read(element).to_edn
+          rescue Exception => ex
+            puts "Bad element: #{element}"
+            raise ex
+          end
+        }.to_not raise_error
+      end
+    end
+
+    it "writes equivalent edn to what it reads" do
+      elements = rant(RantlyHelpers::ELEMENT)
+      elements.each do |element|
+        ruby_element = EDN.read(element)
+        ruby_element.should == EDN.read(ruby_element.to_edn)
+        if ruby_element.respond_to?(:metadata)
+          ruby_element.metadata.should == EDN.read(ruby_element.to_edn).metadata
+        end
+      end
+    end
+  end
+end

data/spec/exemplars/big_decimal.edn

@@ -0,0 +1 @@
+123412341231212121241234M

data/spec/exemplars/big_decimal.rb

@@ -0,0 +1 @@
+123412341231212121241234

data/spec/exemplars/big_int.edn

@@ -0,0 +1 @@
+123412341231212121241234

data/spec/exemplars/big_int.rb

@@ -0,0 +1 @@
+123412341231212121241234

data/spec/exemplars/char.edn

@@ -0,0 +1 @@
+\c

data/spec/exemplars/char.rb

@@ -0,0 +1 @@
+ "c"

data/spec/exemplars/empty_string.edn

@@ -0,0 +1 @@
+""

data/spec/exemplars/empty_string.rb

@@ -0,0 +1 @@
+ ""

data/spec/exemplars/false.edn

@@ -0,0 +1 @@
+false

data/spec/exemplars/false.rb

@@ -0,0 +1 @@
+ false

data/spec/exemplars/float.edn

@@ -0,0 +1 @@
+3.14

data/spec/exemplars/float.rb

@@ -0,0 +1 @@
+ 3.14

data/spec/exemplars/float_neg_exp.edn

@@ -0,0 +1 @@
+3e-10

data/spec/exemplars/float_neg_exp.rb

@@ -0,0 +1 @@
+ 3.0e-10

data/spec/exemplars/float_point_dec_neg_exp.edn

@@ -0,0 +1 @@
+3.0e-10

data/spec/exemplars/float_point_dec_neg_exp.rb

@@ -0,0 +1 @@
+ 3.0e-10

data/spec/exemplars/float_point_plus_exp.edn

@@ -0,0 +1 @@
+3.e+10

data/spec/exemplars/float_point_plus_exp.rb

@@ -0,0 +1 @@
+ 3.0e10

data/spec/exemplars/float_pointneg_exp.edn

@@ -0,0 +1 @@
+3.e-10

data/spec/exemplars/float_pointneg_exp.rb

@@ -0,0 +1 @@
+ 3.0e-10

data/spec/exemplars/float_pos_exp.edn

@@ -0,0 +1 @@
+3e+10

data/spec/exemplars/float_pos_exp.rb

@@ -0,0 +1 @@
+ 3.0e10

data/spec/exemplars/float_sign_exp.edn

@@ -0,0 +1 @@
+3.0e+10

data/spec/exemplars/float_sign_exp.rb

@@ -0,0 +1 @@
+ 3.0e10

data/spec/exemplars/float_with_exp.edn

@@ -0,0 +1 @@
+3.0e10

data/spec/exemplars/float_with_exp.rb

@@ -0,0 +1 @@
+ 3.0e10

data/spec/exemplars/float_with_exp_no_dec.edn

@@ -0,0 +1 @@
+3.e10

data/spec/exemplars/float_with_exp_no_dec.rb

@@ -0,0 +1 @@
+ 3.0e10

data/spec/exemplars/gt_symbol.edn

@@ -0,0 +1 @@
+>

data/spec/exemplars/gt_symbol.rb

@@ -0,0 +1 @@
+ EDN::Type::Symbol.new('>')

data/spec/exemplars/integer.edn

@@ -0,0 +1 @@
+1

data/spec/exemplars/integer.rb

@@ -0,0 +1 @@
+ 1

data/spec/exemplars/keyword.edn

@@ -0,0 +1 @@
+:hello

data/spec/exemplars/keyword.rb

@@ -0,0 +1 @@
+ :hello

data/spec/exemplars/keyword_with_namespace.edn

@@ -0,0 +1 @@
+:hello/world

data/spec/exemplars/keyword_with_namespace.rb

@@ -0,0 +1 @@
+ :"hello/world"

data/spec/exemplars/list_empty.edn

@@ -0,0 +1 @@
+()

data/spec/exemplars/list_empty.rb

@@ -0,0 +1 @@
+ []

data/spec/exemplars/list_mixed.edn

@@ -0,0 +1 @@
+("hello" 1 2)

data/spec/exemplars/list_mixed.rb

@@ -0,0 +1 @@
+ ['hello', 1, 2]

data/spec/exemplars/list_nested.edn

@@ -0,0 +1 @@
+((1 (:hi)))

data/spec/exemplars/list_nested.rb

@@ -0,0 +1 @@
+ [[1, [:hi]]]

data/spec/exemplars/list_one_element.edn

@@ -0,0 +1 @@
+(1)

data/spec/exemplars/list_one_element.rb

@@ -0,0 +1 @@
+ [1]