pione 0.1.2 → 0.1.3

data/test/log/spec_xes-log.rb

@@ -0,0 +1,11 @@
+require_relative '../test-util'
+
+location = Pione::Location[File.join(File.dirname(__FILE__), "data", "sample.log")]
+
+describe 'Pione::XESLog' do
+  it 'should format XES log' do
+    result = Log::XESLog.read(location).format
+    result.should.kind_of String
+    result.size.should > 0
+  end
+end

data/test/model/spec_data-expr.rb

@@ -37,6 +37,18 @@ describe 'Model::DataExpr' do
     exp.should.be.stderr
   end
 
+  it 'should neglect update criteria' do
+    exp = DataExpr.new('test.a').neglect
+    exp.should.neglect
+    exp.should.not.care
+  end
+
+  it 'should care update criteria' do
+    exp = DataExpr.new('test.a').care
+    exp.should.not.neglect
+    exp.should.care
+  end
+
   it 'should match the same name' do
     exp = DataExpr.new('test.a')
     exp.should.match 'test.a'
@@ -50,9 +62,8 @@ describe 'Model::DataExpr' do
 
   it 'should handle multi characters matcher (Case 1)' do
     exp = DataExpr.new('test-*.a')
-    exp.should.match 'test-.a'
-    { 'test-.a' => '',
-      'test-1.a'=> '1',
+    exp.should.not.match 'test-.a'
+    { 'test-1.a'=> '1',
       'test-2.a' => '2',
       'test-3.a' => '3',
       'test-A.a' => 'A',
@@ -75,9 +86,7 @@ describe 'Model::DataExpr' do
     exp.should.match 'test-abc-xyz.a'
     exp.match('test-abc-xyz.a')[1].should == 'abc'
     exp.match('test-abc-xyz.a')[2].should == 'xyz'
-    exp.should.match 'test--.a'
-    exp.match('test--.a')[1].should == ''
-    exp.match('test--.a')[2].should == ''
+    exp.should.not.match 'test--.a'
     exp.should.not.match('test-1.a')
     exp.should.not.match('test-1-2.b')
     exp.should.not.match('test-1-2')
@@ -309,4 +318,238 @@ describe 'Model::DataExpr' do
         DataExpr.new('test.a').stderr
     end
   end
+
+  describe 'pione method: or' do
+    it 'should get OR-relation data expression' do
+      a = DataExpr.new('test.a')
+      b = DataExpr.new('test.b')
+      a.call_pione_method('or', b).should == DataExprOr.new([a, b])
+    end
+  end
+
+  describe 'pione method: join' do
+    it 'should join with the connective' do
+      DataExpr.new('A:B').call_pione_method('join', PioneString.new(",")).should ==
+        PioneString.new("A,B")
+    end
+  end
+
+  describe "pione method: as_string" do
+    it "should convert to string" do
+      DataExpr.new('A').call_pione_method('as_string').should ==
+        PioneString.new("A")
+      DataExpr.new('A:B').call_pione_method('as_string').should ==
+        PioneString.new("A:B")
+      DataExprNull.instance.call_pione_method('as_string').should ==
+        PioneString.new("")
+    end
+  end
+end
+
+describe "Model::DataExprNull" do
+  before do
+    @null = Model::DataExprNull.instance
+  end
+
+  it "should not initialize" do
+    should.raise(NoMethodError) do
+      Model::DataExprNull.new
+    end
+  end
+
+  it "should not match any data" do
+    @null.should.not.match('test.a')
+  end
+
+  it "should return itselt" do
+    @null.all.should == @null
+    @null.each.should == @null
+    @null.stdout.should == @null
+    @null.stderr.should == @null
+    @null.neglect.should == @null
+    @null.care.should == @null
+  end
+
+  it "should accept nonexistance" do
+    @null.should.accept_nonexistence
+  end
+end
+
+describe "Model::DataExprOr" do
+  before do
+    @a_each = Model::DataExpr.new('A')
+    @a_all = Model::DataExpr.new('A').all
+    @a_stdout = Model::DataExpr.new('A').stdout
+    @a_stderr = Model::DataExpr.new('A').stderr
+    @a_neglect = Model::DataExpr.new('A').neglect
+    @a_care = Model::DataExpr.new('A').care
+    @a_aster = Model::DataExpr.new('A*')
+    @aa_each = Model::DataExpr.new('AA')
+    @b_each = Model::DataExpr.new('B')
+    @b_all = Model::DataExpr.new('B').all
+    @b_stdout = Model::DataExpr.new('B').stdout
+    @b_stderr = Model::DataExpr.new('B').stderr
+    @b_neglect = Model::DataExpr.new('B').neglect
+    @b_care = Model::DataExpr.new('B').care
+    @null = Model::DataExprNull.instance
+  end
+
+  it "should match" do
+    expr = Model::DataExprOr.new([@a_each, @b_each])
+    expr.should.match('A')
+    expr.should.match('B')
+    expr.should.not.match('C')
+    expr.modifier.should == :each
+  end
+
+  it 'should get/set modifier' do
+    [ [@a_each, @b_each, @null],
+      [@a_all, @b_all, @null] ].each do |vars|
+      vars.combination(2) do |left, right|
+        Model::DataExprOr.new([left, right]).all.modifier.should == :all
+        Model::DataExprOr.new([left, right]).each.modifier.should == :each
+      end
+    end
+  end
+
+  it 'should get/set the mode' do
+    [ [@a_each, @b_each, @null],
+      [@a_stdout, @b_stdout, @null],
+      [@a_stderr, @b_stderr, @null] ].each do |vars|
+      vars.combination(2) do |left, right|
+        Model::DataExprOr.new([left, right]).stdout.mode.should == :stdout
+        Model::DataExprOr.new([left, right]).stderr.mode.should == :stderr
+      end
+    end
+  end
+
+  it 'should get/set the update criteria' do
+    [ [@a_each, @b_each, @null],
+      [@a_neglect, @b_neglect, @null],
+      [@a_care, @b_care, @null] ].each do |vars|
+      vars.combination(2) do |left, right|
+        Model::DataExprOr.new([left, right]).neglect.update_criteria.should == :neglect
+        Model::DataExprOr.new([left, right]).care.update_criteria.should == :care
+      end
+    end
+  end
+
+  it "should have each modifier" do
+    Model::DataExprOr.new([@a_each, @b_each]).should.each
+    Model::DataExprOr.new([@a_each, @null]).should.each
+    Model::DataExprOr.new([@null, @a_each]).should.each
+  end
+
+  it "should not have all modifier" do
+    Model::DataExprOr.new([@a_all, @b_all]).should.not.each
+    Model::DataExprOr.new([@a_all, @null]).should.not.each
+    Model::DataExprOr.new([@null, @a_all]).should.not.each
+  end
+
+  it "should have all modifier" do
+    Model::DataExprOr.new([@a_all, @b_all]).should.all
+    Model::DataExprOr.new([@a_all, @null]).should.all
+    Model::DataExprOr.new([@null, @a_all]).should.all
+  end
+
+  it "should not have all modifier" do
+    Model::DataExprOr.new([@a_each, @b_each]).should.not.all
+    Model::DataExprOr.new([@a_each, @null]).should.not.all
+    Model::DataExprOr.new([@null, @a_each]).should.not.all
+  end
+
+  it "should be stdout mode" do
+    Model::DataExprOr.new([@a_stdout, @b_stdout]).should.stdout
+    Model::DataExprOr.new([@a_stdout, @null]).should.stdout
+    Model::DataExprOr.new([@null, @a_stdout]).should.stdout
+  end
+
+  it "should be not stdout mode" do
+    Model::DataExprOr.new([@a_stderr, @b_stderr]).should.not.stdout
+    Model::DataExprOr.new([@a_stderr, @null]).should.not.stdout
+    Model::DataExprOr.new([@null, @a_stderr]).should.not.stdout
+  end
+
+  it "should be stderr mode" do
+    Model::DataExprOr.new([@a_stderr, @b_stderr]).should.stderr
+    Model::DataExprOr.new([@a_stderr, @null]).should.stderr
+    Model::DataExprOr.new([@null, @a_stderr]).should.stderr
+  end
+
+  it "should be not stderr mode" do
+    Model::DataExprOr.new([@a_stdout, @b_stdout]).should.not.stderr
+    Model::DataExprOr.new([@a_stdout, @null]).should.not.stderr
+    Model::DataExprOr.new([@null, @a_stdout]).should.not.stderr
+  end
+
+  it "should neglect update criteria" do
+    Model::DataExprOr.new([@a_neglect, @b_neglect]).should.neglect
+    Model::DataExprOr.new([@a_neglect, @null]).should.neglect
+    Model::DataExprOr.new([@null, @a_neglect]).should.neglect
+  end
+
+  it "should not neglect update criteria" do
+    Model::DataExprOr.new([@a_care, @b_care]).should.not.neglect
+    Model::DataExprOr.new([@a_care, @null]).should.not.neglect
+    Model::DataExprOr.new([@null, @a_care]).should.not.neglect
+  end
+
+  it "should care update criteria" do
+    Model::DataExprOr.new([@a_care, @b_care]).should.care
+    Model::DataExprOr.new([@a_care, @null]).should.care
+    Model::DataExprOr.new([@null, @a_care]).should.care
+  end
+
+  it "should not care update criteria" do
+    Model::DataExprOr.new([@a_neglect, @b_neglect]).should.not.care
+    Model::DataExprOr.new([@a_neglect, @null]).should.not.care
+    Model::DataExprOr.new([@null, @a_neglect]).should.not.care
+  end
+
+  it "should accept nonexistance" do
+    Model::DataExprOr.new([@a_each, @null]).should.accept_nonexistence
+    Model::DataExprOr.new([@null, @a_each]).should.accept_nonexistence
+  end
+
+  it "should not accept nonexistance" do
+    Model::DataExprOr.new([@a_each, @b_each]).should.not.accept_nonexistence
+  end
+
+  it "should get/set exceptions" do
+    Model::DataExprOr.new([@a_aster, @b_each]).except(@aa_each).tap do |expr|
+      expr.exceptions.should == [@aa_each]
+      expr.should.match("AAA")
+      expr.should.match("B")
+      expr.should.not.match("AA")
+      expr.should.not.match("A")
+      expr.should.match("AB")
+    end
+  end
+end
+
+#
+# test cases
+#
+yamlname = 'spec_data-expr.yml'
+ymlpath = File.join(File.dirname(__FILE__), yamlname)
+testcases = YAML.load_file(ymlpath)
+
+describe "Model::DataExpr variation tests" do
+  testcases.each do |expr, testcase|
+    data_expr = DocumentTransformer.new.apply(
+      DocumentParser.new.expr.parse(expr)
+    )
+
+    testcase['match'].map do |name|
+      it "#{expr} should match #{name}" do
+        data_expr.eval(VariableTable.new).should.match(name)
+      end
+    end
+
+    testcase['unmatch'].map do |name|
+      it "#{expr} should unmatch #{name}" do
+        data_expr.eval(VariableTable.new).should.not.match(name)
+      end
+    end
+  end
 end

data/test/model/spec_data-expr.yml

@@ -0,0 +1,45 @@
+"'*.a'":
+  match:
+    - "1.a"
+    - "2.a"
+    - "3.a"
+    - "123.a"
+  unmatch:
+    - "1.b"
+    - ".a"
+    - "a"
+    - "1.1a"
+    - "1.aa"
+    - "123.aa"
+"'A:B'":
+  match:
+    - "A"
+    - "B"
+  unmatch:
+    - "AB"
+    - "BA"
+"'*.a:*.b'":
+  match:
+    - "1.a"
+    - "1.b"
+  unmatch:
+    - "1.ab"
+    - "1.ba"
+    - ".a"
+    - ".b"
+"'A' or 'B'":
+  match:
+    - "A"
+    - "B"
+  unmatch:
+    - "AB"
+    - "BA"
+"'*.a' or '*.b'":
+  match:
+    - "1.a"
+    - "1.b"
+  unmatch:
+    - "1.ab"
+    - "1.ba"
+    - ".a"
+    - ".b"

data/test/parser/spec_expr-parser.yml

@@ -36,6 +36,10 @@ message:
     - ".sync"
     - ".abc(1, \"s\", '*.txt')"
     - ".abc(1.0.abc(3.def))"
+data_expr:
+  valid:
+    - "'test.a'"
+    - "null"
 rule_expr:
   valid:
     - "&package:rule_name"

data/test/spec_data-finder.rb

@@ -9,11 +9,11 @@ testcases = YAML.load_file(ymlpath)
 
 describe 'DataFinder' do
   before do
-    create_remote_tuple_space_server
+    create_tuple_space_server
   end
 
   after do
-    tuple_space_server.terminate
+    #tuple_space_server.terminate
   end
 
   it 'should find a data tuple by complete name' do
@@ -59,24 +59,30 @@ describe 'DataFinder' do
 
       # tuples
       testcase['tuples'].map {|name|
-        Tuple[:data].new(name: name, domain: 'test')
+        Tuple[:data].new(name: name, domain: 'test', location: Location[name])
       }.each do |tuple|
         tuple_space_server.write(tuple)
       end
 
       # query
       query = testcase['query'].map {|d|
-        modifier = d["modifier"] == "all" ? :all : :each
-        DataExpr.new(d["name"], modifier)
+        if d.kind_of?(Hash)
+          modifier = d["modifier"] == "all" ? :all : :each
+          DataExpr.new(d["name"], modifier)
+        else
+          DocumentTransformer.new.apply(
+            DocumentParser.new.expr.parse(d)
+          )
+        end
       }
 
       # results
       results = testcase['results'].map {|res|
         res.map {|name|
           if name.kind_of?(Array)
-            name.map {|n| Tuple[:data].new(name: n, domain: 'test') }
+            name.map {|n| Tuple[:data].new(name: n, domain: 'test', location: Location[n]) }
           else
-            Tuple[:data].new(name: name, domain: 'test')
+            Tuple[:data].new(name: name, domain: 'test', location: Location[name])
           end
         }
       }

data/test/spec_data-finder.yml

@@ -4,7 +4,7 @@ case1:
     - 2.a
     - 3.a
   query:
-    - { name: 1.a }
+    - "'1.a'"
   results:
     - [ 1.a ]
 
@@ -14,7 +14,7 @@ case2:
     - 2.a
     - 3.a
   query:
-    - { name: "*.a" }
+    - "'*.a'"
   results:
     - [ 1.a ]
     - [ 2.a ]
@@ -26,7 +26,7 @@ case3:
     - 2.a
     - 3.a
   query:
-    - { name: "*.a", modifier: all}
+    - "'*.a'.all"
   results:
     - [ [1.a, 2.a, 3.a] ]
 
@@ -39,8 +39,8 @@ case4:
     - 3.a
     - 3.b
   query:
-    - { name: "*.a" }
-    - { name: "{$*}.b" }
+    - "'*.a'"
+    - "'{$*}.b'"
   results:
     - [ 1.a, 1.b ]
     - [ 2.a, 2.b ]
@@ -55,8 +55,8 @@ case5:
     - 3.a
     - 3.b
   query:
-    - { name: "*.a", modifier: all }
-    - { name: "*.b" }
+    - "'*.a'.all"
+    - "'*.b'"
   results:
     - [ [1.a, 2.a, 3.a], 1.b ]
     - [ [1.a, 2.a, 3.a], 2.b ]
@@ -71,8 +71,8 @@ case6:
     - 3.a
     - 3.b
   query:
-    - { name: "*.a" }
-    - { name: "*.b", modifier: all }
+    - "'*.a'"
+    - "'*.b'.all"
   results:
     - [ 1.a, [1.b, 2.b, 3.b] ]
     - [ 2.a, [1.b, 2.b, 3.b] ]
@@ -87,8 +87,8 @@ case7:
     - 3.a
     - 3.b
   query:
-    - { name: "*.a", modifier: all }
-    - { name: "*.b", modifier: all }
+    - "'*.a'.all"
+    - "'*.b'.all"
   results:
     - [ [1.a, 2.a, 3.a], [1.b, 2.b, 3.b] ]
 
@@ -101,8 +101,8 @@ case8:
     - 3.a
     - 3.b
   query:
-    - { name: "*.a" }
-    - { name: "*.b" }
+    - "'*.a'"
+    - "'*.b'"
   results:
     - [ 1.a, 1.b ]
     - [ 1.a, 2.b ]
@@ -113,3 +113,32 @@ case8:
     - [ 3.a, 1.b ]
     - [ 3.a, 2.b ]
     - [ 3.a, 3.b ]
+
+case9:
+  tuples:
+    - 1.a
+    - 2.a
+    - 3.a
+  query:
+    - "'*.a'"
+    - "'*.b' or null"
+  results:
+    - [ 1.a, [] ]
+    - [ 2.a, [] ]
+    - [ 3.a, [] ]
+
+case10:
+  tuples:
+    - 1.a
+    - 1.b
+    - 2.a
+    - 2.b
+    - 3.a
+    - 3.b
+  query:
+    - "'*.a'"
+    - "'*.b'.all or null"
+  results:
+    - [ 1.a, [1.b, 2.b, 3.b] ]
+    - [ 2.a, [1.b, 2.b, 3.b] ]
+    - [ 3.a, [1.b, 2.b, 3.b] ]