pione 0.2.1 → 0.2.2

data/test/location/http-behavior.rb

@@ -0,0 +1,59 @@
+shared "http" do
+  it "should not be writable" do
+    location("/a.txt").should.not.be.writable
+  end
+
+  it "should read files" do
+    location("/a.txt").read.should == "A"
+    location("/b.txt").read.should == "AB"
+    location("/c.txt").read.should == "ABC"
+    location("/dir/d.txt").read.should == "ABCD"
+  end
+
+  it "should get size" do
+    location("/a.txt").size.should == 1
+    location("/b.txt").size.should == 2
+    location("/c.txt").size.should == 3
+    location("/dir/d.txt").size.should == 4
+  end
+
+  it "should get mtime" do
+    location("/a.txt").mtime.to_s.should == File.mtime(File.join(@path, "a.txt")).to_s
+    location("/b.txt").mtime.to_s.should == File.mtime(File.join(@path, "b.txt")).to_s
+    location("/c.txt").mtime.to_s.should == File.mtime(File.join(@path, "c.txt")).to_s
+    location("/dir/d.txt").mtime.to_s.should == File.mtime(File.join(@path, "dir", "d.txt")).to_s
+  end
+
+  it "should exist" do
+    location("/a.txt").should.exist
+    location("/b.txt").should.exist
+    location("/c.txt").should.exist
+    location("/dir/d.txt").should.exist
+  end
+
+  it "should not exist" do
+    location("/d.txt").should.not.exist
+    location("/dir").should.not.exist
+  end
+
+  it "should be files" do
+    location("/a.txt").should.be.file
+    location("/b.txt").should.be.file
+    location("/c.txt").should.be.file
+    location("/dir/d.txt").should.be.file
+  end
+
+  it "should not be files" do
+    location("/d.txt").should.not.file
+    location("/dir").should.not.file
+  end
+
+  it "should not be directories" do
+    location("/a.txt").should.not.be.directory
+    location("/b.txt").should.not.be.directory
+    location("/c.txt").should.not.be.directory
+    location("/dir/d.txt").should.not.be.directory
+    location("/d.txt").should.not.directory
+    location("/dir").should.not.directory
+  end
+end

data/test/location/location-behavior.rb

@@ -122,4 +122,12 @@ shared "location" do
     (@dir + "D").directory_entries.should.not.include(@dir + "D" + "Y")
     (@dir + "D").directory_entries.should.not.include(@dir + "D" + "Z")
   end
+
+  it "should get local location" do
+    @file.create("A")
+    local = @file.local
+    local.scheme.should == "local"
+    local.should.exist
+    local.should.file
+  end
 end

data/test/location/spec_basic-location.rb

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

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

@@ -0,0 +1,143 @@
+require_relative '../test-util'
+
+$stdout = STDOUT
+$stderr = STDERR
+
+describe "Pione::Location::GitRepositoryLocation" do
+  before do
+    Global.git_repository_directory
+  end
+
+  #
+  # test git URL handling
+  #
+
+  it "should get repository location of local filesystem" do
+    location = Location[git: "/path/to/repos.git"]
+    location.location_type.should == :git_repository
+    location.address.should == "/path/to/repos.git"
+  end
+
+  it "should get repository locatoion of git server" do
+    location = Location[git: "git://path/to/repos.git"]
+    location.location_type.should == :git_repository
+    location.address.should == "git://path/to/repos.git"
+  end
+
+  it "should get repository location of http" do
+    location = Location[git: "https://github.com/pione/pione.git"]
+    location.location_type.should == :git_repository
+    location.address.should == "https://github.com/pione/pione.git"
+  end
+
+  it "should get repository location of ssh" do
+    location = Location[git: "git@github.com:pione/pione.git"]
+    location.location_type.should == :git_repository
+    location.address.should == "git@github.com:pione/pione.git"
+  end
+
+  #
+  # test repository operations
+  #
+
+  shared "git repository location" do
+    it "should get hash id from tag" do
+      @location.ref(tag: "v0.1.0").should == "2bb5f582387ac04b429db26dc1c597cf0b8fc0fe"
+      @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 export repository at HEAD" do
+      exported = Location[Temppath.mkdir]
+      @location.export(exported)
+      (exported + "package.yml").should.exist
+      (exported + "scenario" + "scenario.yml").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
+    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
+    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
+    end
+  end
+
+  describe "local" do
+    before do
+      @repos_location = Location[Temppath.mkdir]
+      repos_zip = TestUtil::TEST_PACKAGE_DIR + "HelloWorld-gitrepos.zip"
+      Util::Zip.uncompress(repos_zip, @repos_location)
+    end
+
+    describe "head" do
+      before do
+        @location = Location[git: @repos_location.path]
+      end
+
+      behaves_like "git repository location"
+    end
+
+    describe "with tag" do
+      before do
+        @location = Location[git: @repos_location.path, tag: "v0.1.0"]
+      end
+
+      behaves_like "git repository location"
+    end
+
+    describe "with hash id" do
+      before do
+        @location = Location[git: @repos_location.path, hash_id: "a5dd7b0"]
+      end
+
+      behaves_like "git repository location"
+    end
+
+    describe "with branch" do
+      before do
+        @location = Location[git: @repos_location.path, branch: "master"]
+      end
+
+      behaves_like "git repository location"
+    end
+  end
+
+  # describe "http" do
+  #    before do
+  #     @repos_location = Location[Temppath.mkdir]
+  #     repos_zip = TestUtil::TEST_PACKAGE_DIR + "HelloWorld-gitrepos.zip"
+  #     Util::Zip.uncompress(repos_zip, @repos_location)
+  #     @server = TestUtil::WebServer.start(@repos_location)
+  #     @location = Location[git: @server.root.uri]
+  #   end
+
+  #   after do
+  #     @server.terminate
+  #   end
+
+  #   behaves_like "git repository location"
+  # end
+end
+

data/test/location/spec_http-location.rb

@@ -0,0 +1,28 @@
+require_relative "../test-util"
+require_relative "http-behavior"
+require 'webrick'
+
+describe "Pione::Location::HTTPLocation" do
+  before do
+    @path = File.join(File.dirname(__FILE__), "spec_http-location")
+    logger = WEBrick::Log.new(StringIO.new("", "w"))
+    @server = WEBrick::HTTPServer.new(DocumentRoot: @path, Port: 54673, Logger: logger, AccessLog: logger)
+    @thread = Thread.new do
+      retriable(on: WEBrick::ServerError, tries: 10, interval: 2) do
+        @server.start
+      end
+    end
+  end
+
+  after do
+    @server.shutdown
+    @thread.kill
+  end
+
+  def location(path)
+    Location["http://127.0.0.1:%s%s" % [@server.config[:Port], path]]
+  end
+
+  behaves_like "http"
+end
+

data/test/location/spec_http-location/a.txt

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

data/test/location/spec_http-location/b.txt

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

data/test/location/spec_http-location/c.txt

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

data/test/location/spec_http-location/dir/d.txt

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

data/test/location/spec_https-location.rb

@@ -0,0 +1,37 @@
+require_relative "../test-util"
+require_relative "http-behavior"
+require 'webrick'
+require 'webrick/https'
+
+describe "Pione::Location::HTTPSLocation" do
+  before do
+    @path = File.join(File.dirname(__FILE__), "spec_http-location")
+    logger = WEBrick::Log.new(StringIO.new("", "w"))
+    @server = WEBrick::HTTPServer.new(
+      DocumentRoot: @path,
+      Port: 54673,
+      Logger: logger,
+      AccessLog: logger,
+      SSLEnable: true,
+      SSLCertName: [["CN", WEBrick::Utils.getservername]]
+    )
+    @thread = Thread.new do
+      $stderr = StringIO.new("", "w")
+      retriable(on: WEBrick::ServerError, tries: 5, interval: 1) do
+        @server.start
+      end
+      $stderr = STDOUT
+    end
+  end
+
+  after do
+    @server.shutdown
+    @thread.kill
+  end
+
+  def location(path)
+    Location["https://127.0.0.1:%s%s" % [@server.config[:Port], path]]
+  end
+
+  behaves_like "http"
+end

data/test/rule-handler/spec_flow-handler.rb

@@ -1,7 +1,7 @@
 require_relative '../test-util'
 
 location = Location[File.dirname(__FILE__)] + "spec_flow-handler.pione"
-$doc = Component::Document.load(location.read)
+$doc = Component::Document.load(location)
 
 describe 'Pione::RuleHandler::FlowRule' do
   before do

data/test/rule-handler/spec_update-criteria.rb

@@ -1,7 +1,7 @@
 require_relative '../test-util'
 
 path = Pathname.new(File.join(File.dirname(__FILE__), "spec_update-criteria.pione"))
-document = Component::Document.load(path.read)
+document = Component::Document.load(path)
 
 time = 10.times.map {sleep 0.001; Time.now}
 tuple = {}

data/test/test-data/package/HelloWorld/HelloWorld.pione

@@ -0,0 +1,5 @@
+Rule Main
+  output 'message.txt'
+Action
+  echo "Hello, world!" > message.txt
+End

data/test/test-data/package/HelloWorld/package.yml

@@ -0,0 +1,6 @@
+PackageName: HelloWorld
+Version: 0.1.0
+Documents:
+  - "HelloWorld.pione"
+Scenarios:
+  - "scenario"

data/test/test-data/package/HelloWorld/scenario/output/message.txt

@@ -0,0 +1 @@
+Hello, world!

data/test/test-data/package/HelloWorld/scenario/scenario.yml

@@ -0,0 +1,3 @@
+ScenarioName: HelloWorld
+Outputs:
+  - "message.txt"

data/test/{component/spec_package/TestPackage → test-data/package/TestPackage1}/Test.pione

@@ -1,3 +1,5 @@
+param $WORD := "world"
+
 Rule Main
   input '*.txt'.all
   output '*.count'.all
@@ -9,6 +11,6 @@ Rule Count
   input '*.txt'
   output '{$*}.count'
 Action
-  {$_.bin}/count {$I[1]} > {$O[1]}
+  count
 End
 

data/test/test-data/package/TestPackage1/bin/count

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+
+require "pione"
+
+input  = Pione.val "$I[1]"
+output = Pione.val "$O[1]"
+word   = Pione.val "$WORD"
+
+counter = 0
+File.read(input).gsub(word){counter += 1}
+File.write(output, counter)

data/test/test-data/package/TestPackage1/package.yml

@@ -0,0 +1,9 @@
+PackageName: TestPackage1
+Authors: Keita Yamaguchi
+Tag: v0.1.0
+Documents:
+  - Test.pione
+Scenarios:
+  - scenario/case1
+  - scenario/case2
+  - scenario/case3

data/test/test-data/package/TestPackage1/scenario/case1/output/1.count

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

data/test/test-data/package/TestPackage1/scenario/case1/scenario.yml

@@ -0,0 +1,6 @@
+ScenarioName: Case1
+Params: '{WORD: "a"}'
+Inputs:
+  - "1.txt"
+Outputs:
+  - "1.count"

data/test/test-data/package/TestPackage1/scenario/case2/input/1.txt

@@ -0,0 +1,2 @@
+abcbca
+cbaabc

data/test/test-data/package/TestPackage1/scenario/case2/input/2.txt

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

data/test/test-data/package/TestPackage1/scenario/case2/input/3.txt

@@ -0,0 +1,3 @@
+abcabcabc
+bcabcabca
+cabcabcab

data/test/test-data/package/TestPackage1/scenario/case2/output/1.count

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

data/test/test-data/package/TestPackage1/scenario/case2/output/2.count

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

data/test/test-data/package/TestPackage1/scenario/case2/output/3.count

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

data/test/test-data/package/TestPackage1/scenario/case2/scenario.yml

@@ -0,0 +1,10 @@
+ScenarioName: Case2
+Params: '{WORD: "abc"}'
+Inputs:
+  - "1.txt"
+  - "2.txt"
+  - "3.txt"
+Outputs:
+  - "1.count"
+  - "2.count"
+  - "3.count"