tagen 0.2.1 → 0.2.3

data/lib/tagen/magick.rb

@@ -1,3 +1,4 @@
+require "rmagic"
 =begin
 * **gem**: rmagic
 =end

data/lib/tagen/ncurses.rb

@@ -1,3 +1,4 @@
+require "ncurses"
 =begin
 
 Ncurses

data/lib/tagen/pathname.rb

@@ -1,3 +1,4 @@
+require "pathname"
 =begin
 Additional Methods List
 -----------------------

data/lib/tagen/poppler.rb

@@ -1,3 +1,4 @@
+require "poppler"
 =begin
 * **Install**: Ruby-Gnome
 =end

data/lib/tagen/socket.rb

@@ -1,3 +1,5 @@
+require "socket"
+
 class Socket
 class <<self
 	# pack human-readable address to Socket address

data/lib/tagen/tree.rb

@@ -1,3 +1,5 @@
+require "tree"
+
 =begin
 * **Install**: gem(rubytree)
 =end

data/lib/tagen/xmpp4r.rb

@@ -1 +1,2 @@
+require "xmpp4r"
 require_relative "xmpp4r/roster"

data/lib/tagen/yaml.rb

@@ -0,0 +1,36 @@
+require "yaml"
+
+=begin
+  YAML.load(Pa('/tmp/a'))
+	YAML.dump("x", Pa('/tmp/a'))
+=end
+module YAML
+	class << self
+		alias original_load load
+		alias original_dump dump
+
+		# add #path support 
+		# @param [String,IO,#path] path
+		def load path
+			if path.respond_to?(:path)
+				path = path.path
+				open(path){|f| original_load(f)}
+
+			else
+				original_load path
+			end
+		end
+
+		# add String, #path support 
+		# @param [String,IO,#path] path
+		def dump obj, path
+			if path.respond_to?(:path)
+				path = path.path
+				open(path, "w+"){|f| original_dump(obj, f)}
+			else
+				original_dump obj, path
+			end
+		end
+
+	end
+end

data/spec/spec_helper.rb

@@ -1 +1,15 @@
 require "tagen/core"
+
+class Pa
+	class << self
+		public :_copy, :_move
+	end
+end
+
+class Dir
+	class << self
+		def empty? path
+			Dir.entries(path).sort == %w(. ..)
+		end
+	end
+end

data/spec/tagen/core/array_spec.rb

@@ -0,0 +1,37 @@
+require "spec_helper"
+
+describe Array do
+	describe "#first!" do
+		it "runs ok" do
+			a = [0, 1, 2]
+			a.first!(2).should == [0, 1]
+			a.should == [2]
+		end
+	end
+
+	describe "#last!" do
+		it "runs ok" do
+			a = [0, 1, 2]
+			a.last!(2).should == [1, 2]
+			a.should == [0]
+		end
+	end
+
+	describe "#find!" do
+		it "runs ok" do
+			a = [0, 1, 2]
+			a.find!{|v| v==1}.should == 1
+			a.should == [0,2]
+		end
+	end
+
+	describe "#find_all!" do
+		it "runs ok" do
+			a = [0, 1, 2]
+			a.find_all!{|v| v==0 or v ==2}.should == [0,2]
+			a.should == [1]
+		end
+	end
+
+
+end

data/spec/tagen/core/enumerator_spec.rb

@@ -0,0 +1,21 @@
+require "spec_helper"
+
+describe Enumerator do
+	describe "#with_iobject" do
+
+		it "support mem_obj" do
+			ret = [1,2].each.with_iobject [] do |v,i, m|
+				m << v
+			end
+			ret.should == [1,2]
+		end
+
+		it "support offset" do
+			ret = [1,2].each.with_iobject 2, [] do |v,i, m|
+				m << i
+			end
+			ret.should == [2,3]
+		end
+
+	end
+end

data/spec/tagen/core/pa/cmd_spec.rb

@@ -4,12 +4,14 @@ require "tmpdir"
 
 describe Pa do
 	before :all do
-		$tmpdir = Dir.mktmpdir
-		Dir.chdir($tmpdir)
+		@curdir = Dir.pwd
+		@tmpdir = Dir.mktmpdir
+		Dir.chdir(@tmpdir)
 	end
 
 	after(:all) do
-		FileUtils.rm_r $tmpdir
+		Dir.chdir(@curdir)
+		FileUtils.rm_r @tmpdir
 	end
 
 	describe "#_rmdir" do
@@ -90,7 +92,6 @@ describe Pa do
 		end
 	end
 
-
 	describe "#_copy" do
 		# a symfile
 		# ab
@@ -103,7 +104,6 @@ describe Pa do
 		#   b  # tag
 		#   dir/ 
 		before :all do
-			@_copy = Pa.method(:_copy)
 			FileUtils.mkdir_p(%w(dir/dira destdir/dir))
 			FileUtils.touch(%w(a ab ac dir/b dir/dira/c destdir/dir/b))
 			File.symlink("a", "symfile")
@@ -112,24 +112,24 @@ describe Pa do
 		end
 
 		it "_copy file" do
-			@_copy.call Pa('a'), Pa('b')
+			Pa._copy 'a', 'b'
 			File.exists?('b').should be_true
 		end
 
 		it "_copy directory" do
-			@_copy.call Pa('dir'), Pa('dirc')
+			Pa._copy 'dir', 'dirc'
 			Dir.entries('dirc').should == Dir.entries('dir')
 		end
 
 		context "with :symlink" do
 
 			it "_copy" do
-				@_copy.call Pa('symfile'), Pa('symfilea')
+				Pa._copy 'symfile', 'symfilea'
 				File.symlink?('symfilea').should be_true
 			end
 
 			it "_copy with :folsymlink" do
-				@_copy.call Pa('symfile'), Pa('folsymlink'), folsymlink:true
+				Pa._copy 'symfile', 'folsymlink', folsymlink:true
 				File.symlink?('folsymlink').should be_false
 				File.file?('folsymlink').should be_true
 			end
@@ -163,6 +163,11 @@ describe Pa do
 			end
 		end
 
+		it "_copy with :normal" do
+			Pa._copy 'dir', 'dir_normal', special: true
+			Dir.empty?('dir_normal').should be_true
+		end
+
 	end
 
 	describe "#cp" do
@@ -192,7 +197,6 @@ describe Pa do
 		# a
 		# dir/ b  
 		before :each do
-			@_move = Pa.method(:_move)
 			FileUtils.mkdir_p(%w(dir))
 			FileUtils.touch(%w(a dir/b))
 		end
@@ -202,19 +206,19 @@ describe Pa do
 
 		it "mv a dir/a" do
 			ino = File.stat('a').ino
-			@_move.call Pa("a"), Pa("dir/a"), {}
+			Pa._move "a", "dir/a", {}
 			File.stat('dir/a').ino.should == ino
 			File.exists?("a").should be_false
 		end
 		
 		context "with :overwrite" do
 			it "mv a dir/b" do
-				lambda{@_move.call Pa("a"), Pa("dir/b"), {}}.should raise_error Errno::EEXIST
+				lambda{Pa._move "a", "dir/b", {}}.should raise_error Errno::EEXIST
 			end
 
 			it "mv a dir/b :overwrite" do
 				ino = File.stat('a').ino
-				@_move.call Pa("a"), Pa("dir/b"), overwrite:true
+				Pa._move "a", "dir/b", overwrite:true
 				File.stat("dir/b").ino.should == ino
 			end
 		end
@@ -224,7 +228,6 @@ describe Pa do
 		# a b c
 		# dir/ aa  
 		before :each do
-			@_move = Pa.method(:_move)
 			FileUtils.mkdir_p(%w(dir))
 			FileUtils.touch(%w(a b c dir/aa))
 		end

data/spec/tagen/core/pa/dir_spec.rb

@@ -4,12 +4,14 @@ require "tmpdir"
 
 describe Pa do
 	before :all do
-		$tmpdir = Dir.mktmpdir
-		Dir.chdir($tmpdir)
+		@curdir = Dir.pwd
+		@tmpdir = Dir.mktmpdir
+		Dir.chdir(@tmpdir)
 	end
 
 	after(:all) do
-		FileUtils.rm_r $tmpdir
+		Dir.chdir(@curdir)
+		FileUtils.rm_r @tmpdir
 	end
 
 	describe "#glob" do
@@ -40,13 +42,26 @@ describe Pa do
 			FileUtils.touch(%w(fa .fa fa~ dira/dirb/b))
 		end
 
+		it "runs on" do
+			ret = []
+			Pa.each{|pa| ret << pa.b}
+			ret.sort.should == %w(.fa dira fa fa~)
+		end
+
 		it "return a Enumerator when call without block" do
 			Pa.each.should be_an_instance_of Enumerator
-			Pa.each.with_object([]){|pa,m|m<<pa.b}.sort.should == %w(.fa dira fa fa~)
+		end
+
+		it "raise Errno::ENOENT if path doesn't exists" do
+			lambda { Pa.each("path_doesn't_exits"){} }.should raise_error(Errno::ENOENT)
+		end
+
+		it "raise Errno::ENOTDIDR if path isn't a directory" do
+			lambda { Pa.each("fa"){} }.should raise_error(Errno::ENOTDIR)
 		end
 
 		it "each(.) return 'foo' not '.foo'" do 
-			Pa.each.with_object([]){|pa,m|m<<pa.p}.sort.should == %w(.fa dira fa fa~)
+			Pa.each.with_object([]){|pa,m| m<<pa.p}.sort.should == %w(.fa dira fa fa~)
 		end
 
 		it "each(nodot: true) -> list all files except dot file" do

data/spec/tagen/core/pa/path_spec.rb

@@ -0,0 +1,117 @@
+require "spec_helper"
+
+describe Pa do
+	describe ".shorten" do
+		it "short /home/usr/file into ~/file" do
+			ENV["HOME"] = "/home/foo"
+			Pa.shorten("/home/foo/file").should == "~/file"
+		end
+
+		it "not short /home/other-user/file" do
+			ENV["HOME"] = "/home/foo"
+			Pa.shorten("/home/bar/file").should == "/home/bar/file"
+		end
+	end
+
+	describe "NAME_EXT_PAT" do
+		it "matchs `foo.bar'" do
+			"foo.bar".match(Pa::NAME_EXT_PAT).captures.should == %w(foo bar)
+		end
+
+		it "matchs `foo'" do
+			"foo".match(Pa::NAME_EXT_PAT).captures.should == ["foo", nil]
+		end
+
+	end
+
+	describe "basename" do
+		it "get a basename of a path" do
+			Pa.basename("/home/foo").should == "foo"
+		end
+
+		it "get name, ext with :ext => true" do
+			Pa.basename("/home/foo.bar", ext: true).should == ["foo", "bar"]
+		end
+
+	end
+	
+	describe '.parent' do
+		before :each do
+			@path = "/home/foo/a.txt"
+		end
+
+		it "return parent path" do
+			Pa.parent(@path).should == "/home/foo"
+		end
+
+		it "return parent upto 2 level path" do
+			Pa.parent(@path, 2).should == "/home"
+		end
+	end
+
+	describe "#==" do
+		it "runs ok" do
+			(Pa('/home') == Pa('/home')).should be_true
+		end
+	end
+
+	describe "#+" do
+		it "runs ok" do
+			(Pa('/home')+'~').should == Pa('/home~')
+		end
+	end
+
+	describe "#sub" do
+		it "runs ok" do
+			Pa('/home/foo').sub(/o/,'').should == Pa('/hme/foo')
+		end
+	end
+
+	describe "#sub!" do
+		it "runs ok" do
+			pa = Pa('/home/foo')
+			pa.sub!(/o/,'')
+			pa.should == Pa('/hme/foo')
+		end
+	end
+
+	describe "#gsub" do
+		it "runs ok" do
+			Pa('/home/foo').gsub(/o/,'').should == Pa('/hme/f')
+		end
+	end
+
+	describe "#gsub!" do
+		it "runs ok" do
+			pa = Pa('/home/foo')
+			pa.gsub!(/o/,'')
+			pa.should == Pa('/hme/f')
+		end
+	end
+
+	describe "#match" do
+		it "runs ok" do
+			Pa('/home/foo').match(/foo/)[0].should == 'foo'
+		end
+	end
+
+	describe "#start_with?" do
+		it "runs ok" do
+			Pa('/home/foo').start_with?('/home').should be_true
+		end
+	end
+
+	describe "#end_with?" do
+		it "runs ok" do
+			Pa('/home/foo').end_with?('foo').should be_true
+		end
+	end
+
+	describe "#=~" do
+		it "runs ok" do
+			(Pa('/home/foo') =~ /foo/).should be_true
+		end
+	end
+
+
+end

data/spec/tagen/core/pa/state_spec.rb

@@ -0,0 +1,7 @@
+require "spec_helper"
+
+describe Pa do
+	describe "#chmod" do
+		#Pa("path_doesn't_exists").chmod(777)
+	end
+end

data/spec/tagen/erb_spec.rb

@@ -0,0 +1,19 @@
+require "spec_helper"
+require "tagen/erb"
+
+describe ERB do
+	describe "#result" do
+		before :all do
+			@erb = ERB.new("<%=a%>")
+		end
+
+		it "runs ok" do
+			a = 1
+			@erb.result(binding).should == "1"
+		end
+
+		it "runs ok with local " do
+			@erb.result(nil, a: 2).should == "2"
+		end
+	end
+end