smarbs 0.9.3

data/test/test_log.rb

@@ -0,0 +1,128 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'script'
+require 'smarbs_test'
+
+class Net::SMTP
+
+  remove_method(:start)
+
+  def self.a
+    @@a
+  end
+
+  def send_message (a, b, c)
+    @@a = a
+  end
+
+  def start (a=1, b=1, c=1, d=1, e=1)
+    return yield(self)
+  end
+end
+
+class TestLog < Test::Unit::TestCase;
+  include SmarbsTest
+  
+  def setup
+    clean
+  end
+  
+  def teardown
+   clean_all
+  end
+      
+  def test_checks
+    cf = default_configfile
+    cf.sendmail = true
+    cf.testm = false
+    cf.successmail = false
+    cf.minbackuplevels = 1
+    cf.write
+    assert_fail "The following error occured: E-mail provided in Configfile is wrong or empty!" do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf.email = "rggjan@gmail.com"
+    cf.testm=true
+    cf.write
+    assert_equal(true, cf.testm)
+    assert_success "testm has been automatically set to 'no'." do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf = ConfigFile.new("/tmp/smarbs/smarbs/backup1")
+    assert_equal(false, cf.testm)
+    assert_equal("From: smarbs <rggjan@gmail.com>
+To: smarbs Admin <rggjan@gmail.com>
+Subject: Test email, backup1
+This test email was sent to check the smtp-connection of the configfile \"backup1\".
+The \"testm\" option in the script should have been automatically disabled by now, 
+so you wont receive test emails anymore.
+
+---
+
+For any questions concerning smarbs, you can contact me here: rggjan@gmail.com", Net::SMTP.a)      
+cf.limit = Size.new(0)
+cf.write
+assert_fail("The following error occured: Not enough space available to do an incremental backup!") do
+  Script.new("/tmp/smarbs/smarbs")
+end
+m="Backup NOT successful!
+The following error occured: Not enough space available to do an incremental backup!
+Check your configfile /tmp/smarbs/smarbs/backup1.
+
+
+---
+
+For any questions concerning smarbs, you can contact me here: rggjan@gmail.com"
+assert_equal(m, Net::SMTP.a[-m.size, m.size])
+
+cf.limit = Size.new("20m")
+cf.successmail = true
+cf.write
+assert_success do
+  Script.new("/tmp/smarbs/smarbs")
+end
+assert_equal("From: smarbs <rggjan@gmail.com>
+To: smarbs Admin <rggjan@gmail.com>
+Subject: Smarbs, backup \"backup1\" successful
+Smarbs backup ended with the following message:
+Successfully backed up.
+
+Here is the full logfile:\n\n", Net::SMTP.a[0,213])
+
+cf.uname = "test"
+cf.tls = true
+cf.write
+assert_fail "The following error occured: Both or none of the uname and the passwd must be specified!" do
+  Script.new("/tmp/smarbs/smarbs")
+end
+
+cf.passwd = "test"
+cf.write
+assert_success do
+  Script.new("/tmp/smarbs/smarbs")
+end
+
+cf.logdir = "/tmp/smarbs/logdir/"
+cf.write
+assert_success do
+  Script.new("/tmp/smarbs/smarbs")
+end
+
+
+log =  `ls -d /tmp/smarbs/logdir/*`.strip
+assert_equal("Working on backup1\n", File.new(log, "r").readlines[0])
+
+m=": Successfully backed up.
+
+
+
+---
+
+For any questions concerning smarbs, you can contact me here: rggjan@gmail.com"
+
+assert_equal(m, Net::SMTP.a[-m.size, m.size])          
+  end
+end

data/test/test_script.rb

@@ -0,0 +1,118 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'test/unit'
+require 'stringio'
+require 'script'
+require 'backup'
+require 'smarbs_test'
+
+class TestScript < Test::Unit::TestCase;
+  include SmarbsTest
+  
+  def setup
+    clean
+  end
+  
+  def teardown
+    clean_all
+  end
+  
+  def test_init
+   assert_output("Config file created, edit /tmp/smarbs/smarbs/backup1!\n") do
+      Script.new("/tmp/smarbs/smarbs/")
+    end
+    
+    c = ConfigFile.new("/tmp/smarbs/smarbs/backup1")
+    c.src=["/tmp/smarbs/backmeup/first", "/tmp/smarbs/backmeup/second"]
+    c.dest=("/tmp/smarbs/backmeup")
+    c.write
+    `mkdir -p /tmp/smarbs/backmeup/first`
+    `mkdir -p /tmp/smarbs/backmeup/second`
+    `mkdir -p /tmp/smarbs/backedup/smarbsbackup/1342-backup.1/first`
+    `mkdir -p /tmp/smarbs/backedup/smarbsbackup/1342-backup.1/second`
+    `echo "lskdj v0.9" > /tmp/smarbs/smarbs/home`
+    `echo "vir v0.9" > /tmp/smarbs/smarbs/virtualbox`
+    3.times do
+      assert_output("Successfully backed up.") do
+        Script.new("/tmp/smarbs/smarbs", ["backup1"])
+      end
+    end
+
+    assert_output("Error: Directory '/etc/non_existing_dir/' is not existing!") do
+      Script.new("/etc/non_existing_dir/")
+    end
+
+    a=nil
+    assert_output(["Available configfiles:", "virtualbox", "home", "backup1"]) do
+      a=Script.new("/tmp/smarbs/smarbs", ["--list"])
+    end
+
+    assert_output(["Information options:", "ABSOLUTELY NO WARRANTY", "if not executed as root."]) do
+      a.parse("--help".split)
+    end
+    
+    assert_output("Unknown argument '--Version'!\nUse '--help' to see possible options.\n", :exact => true) do
+      a.parse("--Version --help".split)
+    end
+    
+    assert_output("Unknown argument 'notthere'!\nUse '--help' to see possible options.\n", :exact => true) do
+      a.parse("--help notthere".split)
+    end
+    
+    assert_output("You cannot backup and use '--help' at the same time.\n", :exact => true) do
+      a.parse("home --help".split)
+    end
+
+    assert_output("You cannot backup and use '-l' at the same time.\n", :exact => true) do
+      a.parse("-l home --help".split)
+    end
+
+    assert_output("smarbs 0.9.1 (4. September 2009)\nCopyright (C) 2006-2009 by Jan Rueegg (rggjan)\n<http://smarbs.sourceforge.net/>\n\nsmarbs comes with ABSOLUTELY NO WARRANTY. This is free software, and you\nare welcome to redistribute it under certain conditions. See the GNU\nGeneral Public Licence for details.\n", :exact) do
+      a.parse("-V".split)
+    end
+
+    assert_output("Error: Configfile /tmp/smarbs/smarbs/home is invalid. Please delete it!\nCheck your configfile /tmp/smarbs/smarbs/home.\nError: Configfile /tmp/smarbs/smarbs/virtualbox is invalid. Please delete it!\nCheck your configfile /tmp/smarbs/smarbs/virtualbox.\n") do
+      a.parse("home virtualbox".split)
+    end
+
+    `echo "-preferences-\n--end of preferences--" > /tmp/smarbs/smarbs/home`
+    `echo "-preferences-\n--end of preferences--" > /tmp/smarbs/smarbs/virtualbox`
+    assert_fail("Source directory/file /directory/to/source1 not existing!") do
+      a.parse(["home"])
+    end
+
+    assert_fail("Source directory/file /directory/to/source1 not existing!") do
+      a.parse("home --pass-rsync=".split)
+    end
+
+    assert_fail("Source directory/file /directory/to/source1 not existing!") do
+      a.parse("--pass-rsync=lkjlk -v --verbose home".split)
+    end
+
+    assert_fail("Source directory/file /directory/to/source1 not existing!") do
+      a.parse("--pass-rsync=lkjlk --verbose --pass-rsync=ooo home".split)
+    end
+    
+    assert_output("You cannot backup and use '--list' at the same time.\n") do
+      a.parse("--list home --help".split)
+    end
+
+    assert_output("Unknown argument 'home2'!\nUse '--help' to see possible options.\n") do
+      a.parse("-l home2 -lp --pass-rsync=".split)
+    end
+    
+    assert_output("Source directory/file /directory/to/source1 not existing!") do
+      a.parse("--verbose home".split)
+    end
+  end
+
+  def test_no_limit_when_ownpartition
+    assert_output(["Limit:", "ignored", "ownpartition is set"]) do
+      cf = default_configfile
+      cf.ownpartition = true
+      cf.write
+      Script.new("/tmp/smarbs/smarbs/")
+    end
+  end
+end

data/test/test_smarbs.rb

@@ -0,0 +1,131 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'script'
+require 'backup'
+require 'smarbs_test'
+
+class TestSmarbs < Test::Unit::TestCase;
+  include SmarbsTest
+  
+  def setup
+    clean
+  end
+  
+  def teardown
+    clean_all
+  end
+  
+  def test_init
+    `rm -r /tmp/smarbs/smarbs/`
+    assert_output("/tmp/smarbs/smarbs/ created.") do
+      Script.new("/tmp/smarbs/smarbs", [])
+    end
+    
+    assert_fail("Source directory/file /directory/to/source1 not existing") do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf = ConfigFile.new("/tmp/smarbs/smarbs/backup1")
+    cf.src = ["/tmp/smarbs/backmeup"]
+    cf.dest = "/tmp/smarbs/backedup/"
+    cf.write
+
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1])
+
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2])
+
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2, 3])
+
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2, 3, 4])
+
+    cf.limit = Size.new(10)
+    cf.write
+    assert_fail("Not enough space available, next deletion would go below your minbackuplevels of 5!") do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf.minbackuplevels = 2
+    cf.write
+    assert_fail(["...removing backup.3", "...removing backup.4...",
+        "Not enough space available, next deletion would go below your minbackuplevels of 2!"]) do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf.minbackuplevels = 1
+    cf.write
+    assert_fail("Not enough space available to do an incremental backup!") do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+
+    cf.limit=(Size.new("10m"))
+    cf.write
+    `mkdir /tmp/smarbs/backmeup/test`
+    `touch /tmp/smarbs/backmeup/test2`
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_equal("test\ntest2\n", `ls /tmp/smarbs/backedup/smarbsbackup/*.1/backmeup`)
+
+    cf.exclude=["test"]
+    cf.write
+    2.times do
+      assert_success do
+        Script.new("/tmp/smarbs/smarbs")
+      end
+    end
+    assert_equal("test2\n", `ls /tmp/smarbs/backedup/smarbsbackup/*.1/backmeup`)
+
+    # Test maxbackuplevels
+    2.times do
+      assert_success do
+        Script.new("/tmp/smarbs/smarbs")
+      end
+    end
+    assert_equal("test2\n", `ls /tmp/smarbs/backedup/smarbsbackup/*.1/backmeup`)
+    assert_backup_dirs([1, 2, 3, 4, 5, 6])
+
+    cf.maxbackuplevels = 4
+    cf.write
+    assert_success ["Deleting old backups...", "maxbackuplevels: 4", "backups: 6", "...removing backup.3..."] do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2, 3, 5])
+
+    cf.minbackuplevels=5
+    cf.write
+    assert_fail "Not enough space available, next deletion would go below your minbackuplevels of 5!" do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2, 3, 5])
+
+    cf.maxbackuplevels=0
+    cf.minbackuplevels=1
+    cf.write
+    3.times do
+      assert_success do
+        Script.new("/tmp/smarbs/smarbs")
+      end
+    end
+    assert_backup_dirs([1, 2, 3, 4, 5, 6, 8])
+
+    cf.maxbackuplevels=3
+    cf.write
+    assert_success do
+      Script.new("/tmp/smarbs/smarbs")
+    end
+    assert_backup_dirs([1, 2, 3])
+  end
+end

data/test/test_smarbs_test.rb

@@ -0,0 +1,76 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'test/unit'
+require 'smarbs_test'
+require 'types'
+
+class TestSmarbsTest < Test::Unit::TestCase
+  include SmarbsTest
+
+  def test_array
+    assert_equal 2, ([:a, :b, :c, :d].index{|item| item == :c})
+    assert_equal nil, ([:a, :b, :c, :d].index{|item| item == :e})
+  end
+
+  def test_constants
+    assert_equal "0.9.1", SMARBS::VERSION
+    assert_equal "4. September 2009", SMARBS::DATE
+    assert File.file?(SMARBS::DATADIR + "/icongreen.png")
+  end
+
+  def test_clean
+    `touch /tmp/smarbs`
+    clean
+    assert File.directory?("/tmp/smarbs")
+
+    `mkdir -p /tmp/smarbs/dir/dir2 && touch /tmp/smarbs/dir/file`
+    clean
+    assert_equal ["backedup", "backmeup", "smarbs"], Directory.new("/tmp/smarbs").files(true).sort
+  end
+
+  def test_clean_all
+  `touch /tmp/smarbs`
+    clean_all
+    assert !File.directory?("/tmp/smarbs")
+  end
+
+
+  def test_assert_output
+    assert_output("word1 word2 word3") do
+      puts "word1 word2 word3"
+    end
+
+    assert_output("word1 word2 word3\n", :exact) do
+      puts "word1 word2 word3"
+    end
+
+    assert_output(/word2/) do
+      puts "word1 word2 word3"
+    end
+
+    assert_output("word2") do
+      puts "word1 word2 word3"
+    end
+
+    assert_output("word2", :nonequal) do
+      puts "word1 word6 word3"
+    end
+
+    assert_output("word2",  :nonequal, :exact) do
+      puts "word2 "
+    end
+  end
+
+  def test_assert_success
+    assert_success do
+      puts "abc\nSuccessfully backed up.\ndef"
+    end
+
+    assert_raise MiniTest::Assertion do
+      assert_success do
+        puts "abc\n\ndef"
+      end
+    end
+  end
+end

data/test/test_suite.rb

@@ -0,0 +1,11 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'test/unit' 
+
+require 'test_backup'
+require 'test_log'
+require 'test_script'
+require 'test_smarbs'
+require 'test_smarbs_test'
+require 'test_types'
+require 'test_helpers'

data/test/test_types.rb

@@ -0,0 +1,141 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+$:.unshift File.join(File.dirname(__FILE__),'..','test')
+
+require 'types'
+require 'helpers'
+require 'test/unit'
+require 'stringio'
+require 'smarbs_test'
+
+class TestTypes < Test::Unit::TestCase;
+  include SmarbsTest
+
+  def setup
+    clean
+  end
+
+  def teardown
+    clean
+  end
+
+  def test_directory
+
+    assert_output("/tmp/smarbs/dir1/ created.\n", :exact => true) do
+      Directory.new("/tmp/smarbs/dir1/")
+    end
+
+    assert_output("/tmp/smarbs/dir1/dir2/dir3/ created.\n", :exact => true) do
+      Directory.new("/tmp/smarbs/dir1/dir2/dir3")
+    end
+
+    assert_output("", :exact => true) do
+      Directory.new("/tmp/smarbs/dir1/dir2")
+    end
+
+    assert_raise_message("/etc/smarbs/ is not writable!") { Directory.new("/etc/smarbs", :writable) }
+    assert_raise_message( "No directory specified!" ) { Directory.new("") }
+    assert_raise_message( "/etc/ is not writable!" ) { Directory.new("etc", :writable)}
+    assert_raise_message( "Directory '/etc/uiae/' is not existing!" ) { Directory.new("/etc/uiae")}
+
+    assert_output("", :exact => true) do
+      Directory.new("/etc/")
+    end
+
+    assert_output("/tmp/smarbs/home/jan/ created.") do
+      Directory.new("/tmp/smarbs/home/jan", :writable)
+    end
+
+    assert_equal( Directory.new(" /tmp/smarbs/home/jan"),
+      Directory.new("/tmp/smarbs/home/jan/ ") )
+    assert_equal( Directory.new("/tmp/smarbs/home/jan"),
+      Directory.new("tmp/smarbs/home/jan") )
+    assert_equal( Directory.new("/tmp/smarbs/home/jan/").to_s,
+      Directory.new("tmp/smarbs/home/jan").to_s )
+    assert_equal( Directory.new("/tmp/smarbs/home/jan/").dir,
+      Directory.new("tmp/smarbs/home/jan").dir )
+
+    clean
+    assert_equal([], Directory.new("/tmp/smarbs/").files(false).sort)
+    `cd /tmp/smarbs/smarbs/ && touch maxtor && touch trekstor && touch mhome &&
+      touch mhome~ && touch maxtor~`
+    `mkdir /tmp/smarbs/smarbs/folder`
+    assert_equal(["maxtor", "trekstor", "mhome"].sort, Directory.new("/tmp/smarbs/smarbs").files(false).sort)
+    assert_equal(["maxtor", "trekstor", "mhome", 
+      "folder", "mhome~", "maxtor~"].sort,
+    Directory.new("/tmp/smarbs/smarbs").files(true).sort)
+
+    assert_instance_of(Float, Directory.new("/tmp/smarbs/smarbs").free)
+
+    d=Directory.new("/tmp/smarbs/")
+    assert_kind_of Float, d.space(true)
+    assert_equal 20480, d.space
+  end
+  
+  def test_sizes
+    a = Size.new("13g")
+    assert_equal(13958643712, a.b)
+    a = Size.new("13.2M")
+    assert_equal(13841203, a.b)
+    assert_equal("13.2m", a.short(-1))
+    a = Size.new("13.8")
+    assert_equal(14, a.b)
+    a = Size.new("0g")
+    assert_equal(0, a.b)
+    a = Size.new("13.44G")
+    assert_equal("13.44 GiB", a.opt)
+    a = Size.new("13.0m")
+    assert_equal("13.0 MiB", a.opt)
+    a = Size.new("10000")
+    assert_equal("9.77 KiB", a.opt)
+    a = Size.new("-13.8m")
+    assert_equal("-13.8 MiB", a.opt)
+    assert_equal("-13.8m", a.short)
+    assert_equal(-14470349, a.b)
+    assert_equal("-14470348.8", a.to_s)
+    
+    zero = Size.new("")
+    assert_equal("0.0 B", zero.opt)
+    assert_equal("0.0", zero.short)
+
+    a = Size.new("44")
+    assert_equal("44.0 B", a.opt)
+    assert_equal("44.0", a.short)
+
+    a = Size.new("10000")
+    assert_equal("9.8 KiB", a.opt(1))
+    assert_equal("9.8k", a.short(1))
+    assert_equal("10.0k", a.short(0))
+    assert_equal("9.765625k", a.short(-1))
+
+    a = Size.new("2147483648")
+    assert_equal("2.0g", a.short(-1))
+    assert_equal("2.0g", a.short(2))
+
+    a = Size.new("2147483649")
+    assert_equal("2.0g", a.short(2))
+    assert_equal("2.00000000093132g", a.short(-1))
+
+    a = Size.new("2147483649")
+    assert_equal("2.0 GiB", a.opt(2))
+    assert_equal("2.00000000093132 GiB", a.opt(-1))
+
+    a = Size.new("-13.87678m")
+    assert_equal("-13.877 MiB", a.opt(3))
+
+    assert_equal Size.new("1k"), Size.new(1024)
+    assert_not_equal Size.new("1k"), Size.new("1m")
+
+assert_equal Size.new(102).to_s, "102.0"
+
+    assert_raise( RuntimeError ) { Size.new("13q") }
+    assert_raise( RuntimeError ) { Size.new("13 q") }
+    assert_raise( RuntimeError ) { Size.new("m13") }
+    assert_raise( RuntimeError ) { Size.new("13mm") }
+    assert_raise( RuntimeError ) { Size.new("13gm") }
+    assert_raise( RuntimeError ) { Size.new("13  m m") }
+    assert_raise( RuntimeError ) { Size.new("13mm") }
+    assert_raise( RuntimeError ) { Size.new("13 g") }
+    assert_raise( RuntimeError ) { Size.new("k") }
+  end
+end
+