yggdrasil 0.0.0 → 0.0.1

data/spec/help_spec.rb

@@ -0,0 +1,269 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Yggdrasil, "help" do
+  puts '-------- help'
+
+  show_subcommands = <<"EOS"
+usage: #{File.basename($0)} <subcommand> [options] [args]
+Yggdrasil version #{Yggdrasil::VERSION}
+Type '#{File.basename($0)} help <subcommand>' for help on a specific subcommand.
+
+Available subcommands:
+   add
+   cleanup
+   commit (ci)
+   diff (di)
+   help (?, h)
+   init
+   list (ls)
+   log
+   status (stat, st)
+   revert
+   update
+   version
+
+Yggdrasil is a configuration management tool by Subversion.
+You should type 'yggdrasil init' at first.
+
+EOS
+
+  it 'should show subcommands on no subcommands' do
+    puts '---- should show subcommands on no subcommands'
+    out = catch_stdout{Yggdrasil.command []}
+    out.should == show_subcommands
+  end
+
+  it 'should show subcommands on "help"' do
+    puts '---- should show subcommands on "help"'
+    out = catch_stdout{Yggdrasil.command %w{help}}
+    out.should == show_subcommands
+  end
+
+  it 'should show subcommands on "h"' do
+    puts '---- should show subcommands on "h"'
+    out = catch_stdout{Yggdrasil.command %w{h}}
+    out.should == show_subcommands
+  end
+
+  it 'should show subcommands on "?"' do
+    puts '---- should show subcommands on "?"'
+    out = catch_stdout{Yggdrasil.command %w{?}}
+    out.should == show_subcommands
+  end
+
+  it 'should be unknown subcommand on "hoge"' do
+    puts '---- should be unknown subcommand on "hoge"'
+    out = catch_stdout do
+      lambda{Yggdrasil.command(%w{hoge})}.should raise_error(SystemExit)
+    end
+    out.should == "#{File.basename($0)} error: Unknown subcommand: 'hoge'\n\n"
+  end
+
+  help_help = <<"EOS"
+help (?,h): Describe the usage of this program or its subcommands.
+usage: #{File.basename($0)} help [SUBCOMMAND]
+
+EOS
+
+  it 'should show help_help' do
+    puts '---- should show help_help'
+    out = catch_stdout{Yggdrasil.command %w{help help}}
+    out.should == help_help
+  end
+
+  it 'should error too many arguments' do
+    puts '---- should error too many arguments'
+    out = catch_stdout do
+      lambda{Yggdrasil.command(%w{help help help})}.should raise_error(SystemExit)
+    end
+    out.should == "#{File.basename($0)} error: too many arguments.\n\n"
+  end
+
+  it 'should show help of version' do
+    puts '---- should show help of version'
+    out = catch_stdout{Yggdrasil.command %w{help version}}
+    out.should == <<"EOS"
+version: See the program version
+usage: #{File.basename($0)} version
+
+EOS
+  end
+
+  it 'should show help of init' do
+    puts '---- should show help of init'
+    out = catch_stdout{Yggdrasil.command %w{help init}}
+    out.should == <<"EOS"
+init: Check environment and initialize configuration.
+usage: #{File.basename($0)} init [OPTIONS...]
+
+Valid options:
+  --repo ARG               : specify svn repository
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+
+EOS
+  end
+
+  it 'should show help of add' do
+    puts '---- should show help of add'
+    out = catch_stdout{Yggdrasil.command %w{help add}}
+    out.should == <<"EOS"
+add: Add files to management list (add to subversion)
+usage #{File.basename($0)} add [FILES...]
+
+EOS
+  end
+
+  it 'should show help of commit' do
+    puts '---- should show help of commit'
+    out = catch_stdout{Yggdrasil.command %w{help commit}}
+    out.should == <<"EOS"
+commit (ci): Send changes from your local file to the repository.
+usage: #{File.basename($0)} commit [OPTIONS...] [FILES...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  -m [--message] ARG       : specify log message ARG
+  --non-interactive        : do no interactive prompting
+
+EOS
+  end
+
+  it 'should show help of cleanup' do
+    puts '---- should show help of cleanup'
+    out = catch_stdout{Yggdrasil.command %w{help cleanup}}
+    out.should == <<"EOS"
+cleanup: clean up the working copy
+usage: #{File.basename($0)} cleanup [OPTIONS...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+
+EOS
+  end
+
+  it 'should show help of diff' do
+    puts '---- should show help of diff'
+    out = catch_stdout{Yggdrasil.command %w{help diff}}
+    out.should == <<"EOS"
+diff (di): Display the differences between two revisions or paths.
+usage: #{File.basename($0)} diff [OPTIONS...] [PATH...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  -r [--revision] ARG      : ARG (some commands also take ARG1:ARG2 range)
+                             A revision argument can be one of:
+                                NUMBER       revision number
+                                '{' DATE '}' revision at start of the date
+                                'HEAD'       latest in repository
+                                'BASE'       base rev of item's working copy
+                                'COMMITTED'  last commit at or before BASE
+                                'PREV'       revision just before COMMITTED
+
+EOS
+  end
+
+  it 'should show help of list' do
+    puts '---- should show help of list'
+    out = catch_stdout{Yggdrasil.command %w{help list}}
+    out.should == <<"EOS"
+list (ls): List directory entries in the repository.
+usage: #{File.basename($0)} list [OPTIONS...] [PATH...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  -r [--revision] ARG      : ARG (some commands also take ARG1:ARG2 range)
+                             A revision argument can be one of:
+                                NUMBER       revision number
+                                '{' DATE '}' revision at start of the date
+                                'HEAD'       latest in repository
+                                'BASE'       base rev of item's working copy
+                                'COMMITTED'  last commit at or before BASE
+                                'PREV'       revision just before COMMITTED
+  -R [--recursive]         : descend recursively, same as --depth=infinity
+  --depth ARG              : limit operation by depth ARG ('empty', 'files',
+                            'immediates', or 'infinity')
+
+EOS
+  end
+
+  it 'should show help of log' do
+    puts '---- should show help of log'
+    out = catch_stdout{Yggdrasil.command %w{help log}}
+    out.should == <<"EOS"
+log: Show the log messages for a set of revision(s) and/or file(s).
+usage: #{File.basename($0)} log [OPTIONS...] [PATH]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  -r [--revision] ARG      : ARG (some commands also take ARG1:ARG2 range)
+                             A revision argument can be one of:
+                                NUMBER       revision number
+                                '{' DATE '}' revision at start of the date
+                                'HEAD'       latest in repository
+                                'BASE'       base rev of item's working copy
+                                'COMMITTED'  last commit at or before BASE
+                                'PREV'       revision just before COMMITTED
+
+EOS
+  end
+
+  it 'should show help of status' do
+    puts '---- should show help of status'
+    out = catch_stdout{Yggdrasil.command %w{help status}}
+    out.should == <<"EOS"
+status (stat, st): Print the status of managed files and directories.
+usage: #{File.basename($0)} status [OPTIONS...] [PATH...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  --depth ARG              : limit operation by depth ARG ('empty', 'files',
+                            'immediates', or 'infinity')
+
+EOS
+  end
+
+  it 'should show help of update' do
+    puts '---- should show help of update'
+    out = catch_stdout{Yggdrasil.command %w{help update}}
+    out.should == <<"EOS"
+update (up): Bring changes from the repository into the local files.
+usage: #{File.basename($0)} update [PATH...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  -r [--revision] ARG      : ARG (some commands also take ARG1:ARG2 range)
+                             A revision argument can be one of:
+                                NUMBER       revision number
+                                '{' DATE '}' revision at start of the date
+                                'HEAD'       latest in repository
+                                'BASE'       base rev of item's working copy
+                                'COMMITTED'  last commit at or before BASE
+                                'PREV'       revision just before COMMITTED
+  --non-interactive        : do no interactive prompting
+
+EOS
+  end
+
+  it 'should show help of revert' do
+    puts '---- should show help of revert'
+    out = catch_stdout{Yggdrasil.command %w{help revert}}
+    out.should == <<"EOS"
+revert: Restore pristine working copy file (undo most local edits).
+usage: #{File.basename($0)} revert [PATH...]
+
+Valid options:
+  --username ARG           : specify a username ARG
+  --password ARG           : specify a password ARG
+  --non-interactive        : do no interactive prompting
+
+EOS
+  end
+end

data/spec/init_spec.rb

@@ -0,0 +1,80 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Yggdrasil, "init" do
+  it '-------- init' do
+    puts '-------- init'
+    prepare_environment
+  end
+
+  it 'should error: "Not enough arguments provided"' do
+    puts '---- should error: "Not enough arguments provided"'
+    out = catch_stdout do
+      lambda{Yggdrasil.command(%w{init --repo})}.should raise_error(SystemExit)
+    end
+    out.should == "#{File.basename($0)} error: Not enough arguments provided: --repo\n\n"
+  end
+
+  it 'should error: can not access to SVN server' do
+    puts '---- should error: can not access to SVN server'
+    `rm -rf /tmp/yggdrasil-test/.yggdrasil`
+    out = catch_stdout do
+      cmd_args = %w{init --repo file:///tmp/yggdrasil-test/hoge --username hoge --password foo}
+      lambda{Yggdrasil.command(cmd_args)}.should raise_error(SystemExit)
+    end
+    out.should == "SVN access test...\nSVN error: can not access to 'file:///tmp/yggdrasil-test/hoge'.\n"
+  end
+
+  it 'should error: no valid repository' do
+    puts '---- should error: no valid repository'
+    `rm -rf /tmp/yggdrasil-test/.yggdrasil`
+    `rm -rf /tmp/yggdrasil-test/svn-repo`
+
+    catch_stdout do # > /dev/null
+      cmd_args = %w{init --repo file:///tmp/yggdrasil-test/svn-repo/mng-repo/host-name/ --username hoge --password foo}
+      lambda{Yggdrasil.command(cmd_args)}.should raise_error(SystemExit)
+    end
+  end
+
+  it 'should success: create config file' do
+    puts '---- should success: create config file'
+    `rm -rf /tmp/yggdrasil-test/.yggdrasil`
+    `rm -rf /tmp/yggdrasil-test/svn-repo`
+    `svnadmin create /tmp/yggdrasil-test/svn-repo`
+
+    out = catch_stdout do
+      Yggdrasil.command %w{init} +
+          %w{--repo file:///tmp/yggdrasil-test/svn-repo/mng-repo/host-name/} +
+          %w{--username hoge --password foo}
+    end
+    out.should == "SVN access test...\nSVN mkdir: OK.\n"
+  end
+
+  it 'should success: create config file (interactive)' do
+    puts '---- should success: create config file (interactive)'
+    `pkill svnserve`
+    `rm -rf /tmp/yggdrasil-test/.yggdrasil`
+    `rm -rf /tmp/yggdrasil-test/svn-repo`
+    `svnadmin create /tmp/yggdrasil-test/svn-repo`
+    Yggdrasil.system3 'cat > /tmp/yggdrasil-test/svn-repo/conf/passwd', true, "[users]\nhoge = foo"
+    Yggdrasil.system3 'cat > /tmp/yggdrasil-test/svn-repo/conf/svnserve.conf', true, <<"EOS"
+[general]
+anon-access = none
+auth-access = write
+password-db = passwd
+EOS
+    `svnserve -d`
+
+    out = catch_stdout do
+      Yggdrasil.command %w{init},
+          "svn://localhost/tmp/yggdrasil-test/svn-repo/mng-repo/host-name/\n"\
+          "hoge\n"\
+          "foo\n"
+    end
+    out.should == \
+      "Input svn repo URL: "\
+      "Input svn username: "\
+      "Input svn password: "\
+      "SVN access test...\n"\
+      "SVN mkdir: OK.\n"
+  end
+end

data/spec/list_spec.rb

@@ -0,0 +1,45 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Yggdrasil, "list" do
+  it '-------- list' do
+    puts '-------- list'
+    prepare_environment
+    init_yggdrasil
+  end
+
+  it 'should show list (absolute path)' do
+    puts '---- should show list (absolute path)'
+    out = catch_stdout{Yggdrasil.command(%w{list /tmp} +
+                                         %w{--username hoge --password foo})}
+    out.should == "yggdrasil-test/\n"
+  end
+
+  it 'should show list (relative path)' do
+    puts '---- should show list (relative path)'
+    out = catch_stdout do
+      FileUtils.cd "/tmp" do
+        Yggdrasil.command %w{list yggdrasil-test}+
+                          %w{--username hoge --password foo}
+      end
+    end
+    out.should == "A\nB\n"
+  end
+
+  it 'should show list (no path)' do
+    puts '---- should show list (no path)'
+    out = catch_stdout do
+      FileUtils.cd "/tmp/yggdrasil-test" do
+        Yggdrasil.command %w{list} +
+                          %w{--username hoge --password foo}
+      end
+    end
+    out.should == "A\nB\n"
+  end
+
+  it 'should show list (with options)' do
+    puts '---- should show list (with options)'
+    out = catch_stdout{Yggdrasil.command(%w{list --revision 2 --recursive --depth infinity /tmp} +
+                                         %w{--username hoge --password foo})}
+    out.should == "yggdrasil-test/\nyggdrasil-test/A\nyggdrasil-test/B\n"
+  end
+end

data/spec/log_spec.rb

@@ -0,0 +1,114 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Yggdrasil, "log" do
+  it '-------- log' do
+    puts '-------- log'
+    prepare_environment
+    init_yggdrasil
+  end
+
+  it 'should show log (absolute path)' do
+    puts '---- should show log (absolute path)'
+    out = catch_stdout{Yggdrasil.command(%w{log /tmp} +
+                                         %w{--username hoge --password foo})}
+    out.gsub!(%r{20..-..-.. .*20..\)}, '')
+    out.should == <<"EOS"
+------------------------------------------------------------------------
+r3 | hoge |  | 1 line
+Changed paths:
+   M /mng-repo/host-name/tmp/yggdrasil-test/A
+   M /mng-repo/host-name/tmp/yggdrasil-test/B
+
+modify
+------------------------------------------------------------------------
+r2 | hoge |  | 1 line
+Changed paths:
+   A /mng-repo/host-name/tmp
+   A /mng-repo/host-name/tmp/yggdrasil-test
+   A /mng-repo/host-name/tmp/yggdrasil-test/A
+   A /mng-repo/host-name/tmp/yggdrasil-test/B
+
+add files
+------------------------------------------------------------------------
+EOS
+  end
+
+  it 'should show log (relative path)' do
+    puts '---- should show log (relative path)'
+    out = catch_stdout do
+      FileUtils.cd "/tmp" do
+        Yggdrasil.command %w{log yggdrasil-test}+
+                          %w{--username hoge --password foo}
+      end
+    end
+    out.gsub!(%r{20..-..-.. .*20..\)}, '')
+    out.should == <<"EOS"
+------------------------------------------------------------------------
+r3 | hoge |  | 1 line
+Changed paths:
+   M /mng-repo/host-name/tmp/yggdrasil-test/A
+   M /mng-repo/host-name/tmp/yggdrasil-test/B
+
+modify
+------------------------------------------------------------------------
+r2 | hoge |  | 1 line
+Changed paths:
+   A /mng-repo/host-name/tmp
+   A /mng-repo/host-name/tmp/yggdrasil-test
+   A /mng-repo/host-name/tmp/yggdrasil-test/A
+   A /mng-repo/host-name/tmp/yggdrasil-test/B
+
+add files
+------------------------------------------------------------------------
+EOS
+  end
+
+  it 'should show log (no path)' do
+    puts '---- should show log (no path)'
+    out = catch_stdout do
+      FileUtils.cd "/tmp/yggdrasil-test" do
+        Yggdrasil.command %w{log} +
+                          %w{--username hoge --password foo}
+      end
+    end
+    out.gsub!(%r{20..-..-.. .*20..\)}, '')
+    out.should == <<"EOS"
+------------------------------------------------------------------------
+r3 | hoge |  | 1 line
+Changed paths:
+   M /mng-repo/host-name/tmp/yggdrasil-test/A
+   M /mng-repo/host-name/tmp/yggdrasil-test/B
+
+modify
+------------------------------------------------------------------------
+r2 | hoge |  | 1 line
+Changed paths:
+   A /mng-repo/host-name/tmp
+   A /mng-repo/host-name/tmp/yggdrasil-test
+   A /mng-repo/host-name/tmp/yggdrasil-test/A
+   A /mng-repo/host-name/tmp/yggdrasil-test/B
+
+add files
+------------------------------------------------------------------------
+EOS
+  end
+
+  it 'should show log (with options)' do
+    puts '---- should show log (with options)'
+    out = catch_stdout{Yggdrasil.command(%w{log --revision 2 /tmp} +
+                                         %w{--username hoge --password foo})}
+    out.sub!(%r{20..-..-.. .*20..\)}, '')
+    out.should == <<"EOS"
+------------------------------------------------------------------------
+r2 | hoge |  | 1 line
+Changed paths:
+   A /mng-repo/host-name/tmp
+   A /mng-repo/host-name/tmp/yggdrasil-test
+   A /mng-repo/host-name/tmp/yggdrasil-test/A
+   A /mng-repo/host-name/tmp/yggdrasil-test/B
+
+add files
+------------------------------------------------------------------------
+EOS
+  end
+end

data/spec/revert_spec.rb

@@ -0,0 +1,127 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe Yggdrasil, "revert" do
+  it '-------- revert' do
+    puts '-------- revert'
+    prepare_environment
+    init_yggdrasil
+  end
+
+
+  it 'should revert added files' do
+    puts '---- should commit added files'
+    `echo hoge > /tmp/yggdrasil-test/AA`
+    `echo foo > /tmp/yggdrasil-test/BB`
+    FileUtils.cd "/tmp/yggdrasil-test" do
+      puts '-- add'
+      Yggdrasil.command %w{add AA /tmp/yggdrasil-test/BB}
+
+      puts "-- revert"
+      Yggdrasil.command %w{revert --username hoge --password foo},
+                        "0\nY\n"
+    end
+
+    puts "\n-- check revert file (add)"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == ""
+  end
+
+  it 'should revert modified file' do
+    puts "---- should revert modified file"
+    puts "-- modify"
+    `echo hoge >> /tmp/yggdrasil-test/A`
+
+    puts "-- revert"
+    Yggdrasil.command %w{revert / --username hoge --password foo},
+                      "0\nY\n"
+
+    puts "\n-- check revert file (modify)"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == ""
+  end
+
+  it 'should accept password interactive' do
+    puts "---- should accept password interactive"
+    `echo A >> /tmp/yggdrasil-test/A`
+
+    Yggdrasil.command %w{revert /tmp/yggdrasil-test/A --username hoge},
+                      "foo\nY\n" # interactive input: password, Y/n
+
+    puts "\n-- check revert file"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == ""
+  end
+
+  it 'should revert specified file only' do
+    puts "---- should revert specified file only"
+    `echo A >> /tmp/yggdrasil-test/A`
+    `echo B >> /tmp/yggdrasil-test/B`
+
+    Yggdrasil.command %w{revert /tmp/yggdrasil-test/B} +
+                          %w{--username hoge --password foo},
+                      "0\nY\n"
+
+    puts "\n-- check revert file"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == <<"EOS"
+M                3   tmp/yggdrasil-test/A
+EOS
+  end
+
+  it 'should not revert deleted file' do
+    puts "---- should not revert deleted file"
+    `rm -f /tmp/yggdrasil-test/A`
+
+    Yggdrasil.command %w{revert /} +
+                          %w{--username hoge --password foo},
+                      "0\nn\n"
+
+    puts "\n-- check status"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == <<"EOS"
+D                3   tmp/yggdrasil-test/A
+EOS
+  end
+
+  it 'should revert all files at once' do
+    puts "---- should revert all files at once"
+
+    `echo HOGE >> /tmp/yggdrasil-test/A`
+    `rm -f /tmp/yggdrasil-test/B`
+    `mkdir /tmp/yggdrasil-test/c`
+    `echo bar > /tmp/yggdrasil-test/c/C`
+    Yggdrasil.command %w{add /tmp/yggdrasil-test/c/C}
+
+    Yggdrasil.command %w{revert /} +
+                          %w{--username hoge --password foo},
+                      "0\nY\n"
+
+    puts "\n-- check status"
+    out = catch_stdout do
+      Yggdrasil.command %w{status /tmp/yggdrasil-test} +
+                            %w{--username hoge --password foo}
+    end
+    puts out
+    out.should == ""
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,54 @@
+require File.dirname(__FILE__) + '/../lib/yggdrasil'
+
+def prepare_environment
+  puts "---- prepare environment"
+
+  `pkill svnserve`
+  `rm -rf /tmp/yggdrasil-test`
+  Dir.mkdir('/tmp/yggdrasil-test', 0755)
+  ENV['HOME']='/tmp/yggdrasil-test'
+
+  puts '-- create repo'
+  `svnadmin create /tmp/yggdrasil-test/svn-repo`
+
+  puts '-- launch svnserve'
+  Yggdrasil.system3 'cat > /tmp/yggdrasil-test/svn-repo/conf/passwd', true, "[users]\nhoge = foo"
+  Yggdrasil.system3 'cat > /tmp/yggdrasil-test/svn-repo/conf/svnserve.conf', true, <<"EOS"
+[general]
+anon-access = none
+auth-access = write
+password-db = passwd
+EOS
+  `svnserve -d`
+end
+
+def init_yggdrasil
+  puts '---- init yggdrasil and some commits'
+  puts '-- init'
+  Yggdrasil.command %w{init} +
+                    %w{--repo svn://localhost/tmp/yggdrasil-test/svn-repo/mng-repo/host-name/} +
+                    %w{--username hoge --password foo}
+  puts '-- add'
+  `echo hoge > /tmp/yggdrasil-test/A`
+  `echo foo  > /tmp/yggdrasil-test/B`
+  Yggdrasil.command %w{add} +
+                    %w{/tmp/yggdrasil-test/A /tmp/yggdrasil-test/B}
+  puts '-- commit'
+  Yggdrasil.command %w{commit / --non-interactive -m add\ files} +
+                    %w{--username hoge --password foo}
+  puts '-- modify'
+  `echo hoge >> /tmp/yggdrasil-test/A`
+  `echo foo  >> /tmp/yggdrasil-test/B`
+  puts '-- commit'
+  Yggdrasil.command %w{commit / --non-interactive -m modify} +
+                    %w{--username hoge --password foo}
+end
+
+def catch_stdout
+  exit 1 unless block_given?
+  tmp_out = $stdout
+  $stdout = StringIO.new
+  yield
+  $stdout,tmp_out = tmp_out, $stdout
+  tmp_out.string
+end