pione 0.2.2 → 0.3.0

data/test/lang/spec_message.rb

@@ -0,0 +1,22 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::Message' do
+  before do
+    @a = Lang::Message.new("next", Lang::IntegerSequence.of(1), [])
+    @b = Lang::Message.new("substring", Lang::StringSequence.of("abcdefg"), [Lang::IntegerSequence.of(2), Lang::IntegerSequence.of(3)])
+  end
+
+  it 'should equal' do
+    @a.should == Lang::Message.new("next", Lang::IntegerSequence.of(1), [])
+    @b.should == Lang::Message.new("substring", Lang::StringSequence.of("abcdefg"), [Lang::IntegerSequence.of(2), Lang::IntegerSequence.of(3)])
+  end
+
+  it 'should not equal' do
+    @a.should.not == @b
+  end
+
+  it 'should send message' do
+    @a.eval(Lang::Environment.new).should == Lang::IntegerSequence.of(2)
+    @b.eval(Lang::Environment.new).should == Lang::StringSequence.of("bcd")
+  end
+end

data/test/lang/spec_package-expr.rb

@@ -0,0 +1,19 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::PackageExpr' do
+  before do
+    @package_expr = Lang::PackageExpr.new('A')
+  end
+
+  it 'should equal' do
+    @package_expr.should == Lang::PackageExpr.new('A')
+  end
+
+  it 'should not equal' do
+    @package_expr.should != Lang::PackageExpr.new('B')
+  end
+
+  it 'should get a package name' do
+    @package_expr.name.should == 'A'
+  end
+end

data/test/lang/spec_parameter-set.rb

@@ -0,0 +1,64 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::ParameterSetSequence' do
+  before do
+    @a = Lang::StringSequence.of("a")
+    @b = Lang::StringSequence.of("b")
+    @c = Lang::StringSequence.of("c")
+    @d = Lang::StringSequence.of("d")
+    @i1 = Lang::IntegerSequence.of(1)
+    @i2 = Lang::IntegerSequence.of(2)
+    @i3 = Lang::IntegerSequence.of(3)
+    @true = Lang::BooleanSequence.of(true)
+    @false = Lang::BooleanSequence.of(false)
+    @var_x = Lang::Variable.new("X")
+    @var_y = Lang::Variable.new("Y")
+    @var_z = Lang::Variable.new("Z")
+    @var_a = Lang::Variable.new("A")
+    @params = Lang::ParameterSetSequence.of({@var_x => @a, @var_y => @b, @var_z => @c})
+  end
+
+  it 'should be equal' do
+    @params.should == Lang::ParameterSetSequence.of({@var_x => @a, @var_y => @b, @var_z => @c})
+  end
+
+  it 'should be not equal' do
+    @params.should != Lang::ParameterSetSequence.of({@var_z => @a, @var_y => @b, @var_x => @c})
+  end
+
+  it 'should expand parameter set with each modifier' do
+    seq_a = Lang::StringSequence.of("a", "b", "c").set(distribution: :each)
+    seq_b = Lang::IntegerSequence.of(1, 2, 3).set(distribution: :each)
+    seq_c = Lang::BooleanSequence.of(true, false).set(distribution: :each)
+    param_set = Lang::ParameterSet.new(table: {"X" => seq_a, "Y" => seq_b, "Z" => seq_c})
+    param_set.expand.entries.tap do |list|
+      list.size.should == 18
+      comb = [
+        [@a, @i1, @true], [@a, @i2, @true], [@a, @i3, @true],
+        [@a, @i1, @false], [@a, @i2, @false], [@a, @i3, @false],
+        [@b, @i1, @true], [@b, @i2, @true], [@b, @i3, @true],
+        [@b, @i1, @false], [@b, @i2, @false], [@b, @i3, @false],
+        [@c, @i1, @true], [@c, @i2, @true], [@c, @i3, @true],
+        [@c, @i1, @false], [@c, @i2, @false], [@c, @i3, @false]
+      ]
+      comb.each do |elts|
+        list.should.include(
+          Lang::ParameterSet.new(table: {"X" => elts[0], "Y" => elts[1], "Z" => elts[2]})
+        )
+      end
+    end
+  end
+
+  it 'should expand sequences with all distribution' do
+    seq_a = Lang::StringSequence.of("a", "b", "c").set(distribution: :all)
+    seq_b = Lang::IntegerSequence.of(1, 2, 3).set(distribution: :all)
+    seq_c = Lang::BooleanSequence.of(true, false).set(distribution: :all)
+    param_set = Lang::ParameterSet.new(table: {"X" => seq_a, "Y" => seq_b, "Z" => seq_c})
+    param_set.expand.entries.tap do |list|
+      list.size.should == 1
+      list.should.include(Lang::ParameterSet.new(table: {"X" => seq_a, "Y" => seq_b, "Z" => seq_c}))
+    end
+  end
+
+  TestHelper::Lang.test_pione_method(__FILE__)
+end

data/test/lang/spec_pione-method.rb

@@ -0,0 +1,57 @@
+require 'pione/test-helper'
+
+describe "Pione::Lang::PioneMethod" do
+  before do
+    @env = TestHelper::Lang.env
+    @int_1 = Lang::IntegerSequence.of(1)
+    @int_2 = Lang::IntegerSequence.of(2)
+    @int_3 = Lang::IntegerSequence.of(3)
+    @str_1 = Lang::StringSequence.of(1)
+    @method_1 = Lang::PioneMethod.new(:immediate, "m1", [Lang::TypeInteger], Lang::TypeInteger, lambda{|env, rec, arg1| arg1})
+    @method_2 = Lang::PioneMethod.new(:immediate, "m2", [Lang::TypeInteger, Lang::TypeString], Lang::TypeInteger, lambda{|env, rec, arg1, arg2| arg1})
+    @method_3 = Lang::PioneMethod.new(:immediate, "m3", [], :receiver_type, lambda{|env, rec| rec})
+    @method_bad = Lang::PioneMethod.new(:immediate, "mbad", [Lang::TypeString], Lang::TypeInteger, lambda{|env, rec, arg1| arg1})
+  end
+
+  it "should get inputs" do
+    @method_1.inputs.should == [Lang::TypeInteger]
+    @method_2.inputs.should == [Lang::TypeInteger, Lang::TypeString]
+    @method_3.inputs.should == []
+    @method_bad.inputs.should == [Lang::TypeString]
+  end
+
+  it "should get output" do
+    @method_1.output.should == Lang::TypeInteger
+    @method_2.output.should == Lang::TypeInteger
+    @method_3.output.should == :receiver_type
+    @method_bad.output.should == Lang::TypeInteger
+  end
+
+  it "should be callable" do
+    @method_1.call(@env, @int_1, [@int_2]).should == @int_2
+    @method_2.call(@env, @int_1, [@int_2, @str_1]).should == @int_2
+    @method_3.call(@env, @int_1, []).should == @int_1
+    @method_3.call(@env, @str_1, []).should == @str_1
+  end
+
+  it "should validate inputs" do
+    @method_1.validate_inputs(@int_1, []).should.be.false
+    @method_2.validate_inputs(@int_1, []).should.be.false
+    @method_2.validate_inputs(@int_1, [@str_1]).should.be.false
+    @method_2.validate_inputs(@int_1, [@int_2]).should.be.false
+    @method_2.validate_inputs(@int_1, [@int_2, @int_3, @str_1]).should.be.false
+    @method_3.validate_inputs(@int_1, [@int_2]).should.be.false
+  end
+
+  it "should call" do
+    @method_1.call(@env, @int_1, [@int_2]).should == @int_2
+    @method_2.call(@env, @int_1, [@int_2, @str_1]).should == @int_2
+    @method_3.call(@env, @int_1, []).should == @int_1
+  end
+
+  it "should raise interface error" do
+    should.raise(Lang::MethodInterfaceError){ @method_1.call(@env, @int_1, [@str_1]) }
+    should.raise(Lang::MethodInterfaceError){ @method_2.call(@env, @int_1, [@str_1, @str_1]) }
+    should.raise(Lang::MethodInterfaceError){ @method_bad.call(@env, @int_1, [@str_1]) }
+  end
+end

data/test/lang/spec_rule-expr.rb

@@ -0,0 +1,18 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::RuleExpr' do
+  before do
+    @a = Lang::RuleExpr.new(Lang::PackageExpr.new("main"), "a")
+    @b = Lang::RuleExpr.new(Lang::PackageExpr.new("main"), "b")
+  end
+
+  it 'should be equal' do
+    @a.should == Lang::RuleExpr.new(Lang::PackageExpr.new("main"), "a")
+  end
+
+  it 'should be not equal' do
+    @a.should.not == @b
+  end
+
+  TestHelper::Lang.test_pione_method(__FILE__)
+end

data/test/lang/spec_sequence.rb

@@ -0,0 +1,5 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::Sequence' do
+  TestHelper::Lang.test_pione_method(__FILE__)
+end

data/test/lang/spec_string.rb

@@ -0,0 +1,5 @@
+require 'pione/test-helper'
+
+describe 'Pione::Lang::PioneString' do
+  TestHelper::Lang.test_pione_method(__FILE__)
+end

data/test/lang/spec_ticket-expr.rb

@@ -0,0 +1,39 @@
+require 'pione/test-helper'
+
+describe 'Lang::TicketExpr' do
+  it 'should equal' do
+    Lang::TicketExpr.new("T").should == Lang::TicketExpr.new("T")
+  end
+
+  it 'should not equal' do
+    Lang::TicketExpr.new("T").should.not == Lang::TicketExpr.new("t")
+  end
+
+  it 'should get name' do
+    Lang::TicketExpr.new("T").name.should == "T"
+  end
+end
+
+describe "Pione::Lang::TicketExprSequence" do
+  before do
+    @x = Lang::TicketExpr.new("X")
+    @y = Lang::TicketExpr.new("Y")
+    @seq = Lang::TicketExprSequence.new([@x, @y])
+  end
+
+  it "should equal" do
+    @seq.should == Lang::TicketExprSequence.new([@x, @y])
+  end
+
+  it "should not equal" do
+    @seq.should != Lang::TicketExprSequence.new([@y, @x])
+  end
+
+  it "should get ticket names" do
+    @seq.names.should.include("X")
+    @seq.names.should.include("Y")
+    @seq.names.should.not.include("Z")
+  end
+
+  TestHelper::Lang.test_pione_method(__FILE__)
+end

data/test/lang/spec_variable.rb

@@ -0,0 +1,29 @@
+require 'pione/test-helper'
+
+describe 'Lang::Variable' do
+  before do
+    @a = Lang::Variable.new("a")
+    @b = Lang::Variable.new("b")
+  end
+
+  it 'should equal' do
+    @a.should == Lang::Variable.new("a")
+  end
+
+  it 'should not equal' do
+    @a.should.not == @b
+  end
+
+  it 'should get the value of variable' do
+    env = TestHelper::Lang.env
+    Lang::VariableBindingDeclaration.new(@a, Lang::IntegerSequence.of(1)).eval(env)
+    @a.eval(env).should == Lang::IntegerSequence.of(1)
+  end
+
+  it 'should get the value of nested variable' do
+    env = TestHelper::Lang.env
+    Lang::VariableBindingDeclaration.new(@a, Lang::IntegerSequence.of(1)).eval(env)
+    Lang::VariableBindingDeclaration.new(@b, @a).eval(env)
+    @a.eval(env).should == Lang::IntegerSequence.of(1)
+  end
+end

data/test/location/location-behavior.rb

@@ -1,6 +1,6 @@
 shared "location" do
   it 'should create a file' do
-    @file.create("A")
+    @file.create("A").should == @file
     @file.read.should == "A"
   end
 
@@ -126,7 +126,7 @@ shared "location" do
   it "should get local location" do
     @file.create("A")
     local = @file.local
-    local.scheme.should == "local"
+    local.should.local
     local.should.exist
     local.should.file
   end

data/test/location/spec_basic-location.rb

@@ -1,4 +1,4 @@
-require_relative '../test-util'
+require 'pione/test-helper'
 
 class TestLocation < Location::DataLocation
   set_scheme "test"
@@ -36,4 +36,8 @@ describe 'Location::BasicLocation' do
   it 'should get extension name' do
     Location["test:/a/name.txt"].extname.should == ".txt"
   end
+
+  it "should get dirname" do
+    Location["test:/a/name"].dirname.should == Location["test:/a/"]
+  end
 end

data/test/{uri-scheme → location}/spec_broadcast-scheme.rb

@@ -1,7 +1,7 @@
-require_relative '../test-util'
+require 'pione/test-helper'
 
-describe 'Pione::URIScheme::BroadcastScheme' do
-  it 'should be suported by PIONE' do
+describe 'Pione::Location::BroadcastScheme' do
+  it 'should be parsed as broadcast scheme' do
     URI.parse("broadcast://255.255.255.255").should.be.pione
   end
 
@@ -10,7 +10,7 @@ describe 'Pione::URIScheme::BroadcastScheme' do
   end
 
   it 'should be broadcast scheme URI' do
-    URI.parse("broadcast://255.255.255.255").should.kind_of Pione::URIScheme::BroadcastScheme
+    URI.parse("broadcast://255.255.255.255").should.kind_of Pione::Location::BroadcastScheme
   end
 
   it 'should get scheme name' do

data/test/{uri-scheme → location}/spec_dropbox-scheme.rb

@@ -1,6 +1,6 @@
-require_relative '../test-util'
+require 'pione/test-helper'
 
-describe 'Pione::URIScheme::DropboxScheme' do
+describe 'Pione::Location::DropboxScheme' do
   it 'should be suported by PIONE' do
     URI.parse("dropbox:/").should.be.pione
   end
@@ -10,7 +10,7 @@ describe 'Pione::URIScheme::DropboxScheme' do
   end
 
   it 'should be dropbox scheme URI' do
-    URI.parse("dropbox:/Pione").should.kind_of Pione::URIScheme::DropboxScheme
+    URI.parse("dropbox:/Pione").should.kind_of Pione::Location::DropboxScheme
   end
 
   it 'should get scheme name' do

data/test/location/spec_ftp-location.rb

@@ -1,10 +1,10 @@
-require_relative '../test-util'
+require 'pione/test-helper'
 require_relative 'location-behavior'
 
-Util::FTPServer.start(Util::FTPOnMemoryFS.new)
 
 describe 'Location::FTPLocation' do
   before do
+    Util::FTPServer.start(Util::FTPOnMemoryFS.new)
     Util::FTPServer.fs.clear
     @file = Util::FTPServer.make_location(Temppath.create)
     @dir = Util::FTPServer.make_location(Temppath.create)
@@ -19,6 +19,7 @@ describe 'Location::FTPLocation' do
   after do
     @file.delete
     @dir.delete
+    Util::FTPServer.stop
   end
 
   behaves_like "location"

data/test/location/spec_git-repository-location.rb

@@ -1,4 +1,4 @@
-require_relative '../test-util'
+require 'pione/test-helper'
 
 $stdout = STDOUT
 $stderr = STDERR
@@ -46,48 +46,48 @@ describe "Pione::Location::GitRepositoryLocation" do
       @location.should.has_local
     end
 
-    it "should get hash id from branch" do
-      @location.ref(branch: "master").should == "d0a3837fe04d11ac012db1994c4774a3e39c00fc"
-      @location.should.has_local
-    end
+    # it "should get hash id from branch" do
+    #   @location.ref(branch: "master").should == "d0a3837fe04d11ac012db1994c4774a3e39c00fc"
+    #   @location.should.has_local
+    # end
 
-    it "should get compact hash id" do
-      @location.compact_hash_id.should == "d0a3837"
-    end
+    # it "should get compact hash id" do
+    #   @location.compact_hash_id.should == "d0a3837"
+    # end
 
     it "should export repository at HEAD" do
       exported = Location[Temppath.mkdir]
       @location.export(exported)
-      (exported + "package.yml").should.exist
-      (exported + "scenario" + "scenario.yml").should.exist
+      (exported + "pione-package.json").should.exist
+      (exported + "scenario" + "pione-scenario.json").should.exist
     end
 
     it "should export repository at the hash id" do
       exported = Location[Temppath.mkdir]
       (@location + {hashid: "2bb5f58"}).export(exported)
-      (exported + "package.yml").should.exist
-      (exported + "scenario" + "scenario.yml").should.exist
+      (exported + "pione-package.json").should.exist
+      (exported + "scenario" + "pione-scenario.json").should.exist
     end
 
     it "should export repository at the tag v0.1.0" do
       exported = Location[Temppath.mkdir]
       (@location + {tag: "v0.1.0"}).export(exported)
-      (exported + "package.yml").should.exist
-      (exported + "scenario" + "scenario.yml").should.exist
+      (exported + "pione-package.json").should.exist
+      (exported + "scenario" + "pione-scenario.json").should.exist
     end
 
     it "should export repository at the branch master" do
       exported = Location[Temppath.mkdir]
       (@location + {branch: "master"}).export(exported)
-      (exported + "package.yml").should.exist
-      (exported + "scenario" + "scenario.yml").should.exist
+      (exported + "pione-package.json").should.exist
+      (exported + "scenario" + "pione-scenario.json").should.exist
     end
   end
 
   describe "local" do
     before do
       @repos_location = Location[Temppath.mkdir]
-      repos_zip = TestUtil::TEST_PACKAGE_DIR + "HelloWorld-gitrepos.zip"
+      repos_zip = Location[File.dirname(__FILE__)] + ".." + "package" +  "data" + "HelloWorld-gitrepos.zip"
       Util::Zip.uncompress(repos_zip, @repos_location)
     end
 
@@ -127,9 +127,9 @@ describe "Pione::Location::GitRepositoryLocation" do
   # describe "http" do
   #    before do
   #     @repos_location = Location[Temppath.mkdir]
-  #     repos_zip = TestUtil::TEST_PACKAGE_DIR + "HelloWorld-gitrepos.zip"
+  #     repos_zip = TestHelper::TEST_PACKAGE_DIR + "HelloWorld-gitrepos.zip"
   #     Util::Zip.uncompress(repos_zip, @repos_location)
-  #     @server = TestUtil::WebServer.start(@repos_location)
+  #     @server = TestHelper::WebServer.start(@repos_location)
   #     @location = Location[git: @server.root.uri]
   #   end