clutil 2010.127.0

data/cl/util/test.rb

@@ -0,0 +1,92 @@
+# $Id: test.rb,v 1.5 2005/04/22 03:59:43 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+(based on BSD Open Source License)
+=end
+
+require 'cl/util/file'
+require 'ftools'
+require 'test/unit'
+
+class TempDirTest < Test::Unit::TestCase
+  def setTempDir
+    @tempDir = '/tmp/tests'
+  end
+
+  def set_up
+    @fileNameInc = 0
+    setTempDir
+    File.makedirs(@tempDir) if !FileTest.directory?(@tempDir)
+  end
+
+  def tear_down
+    ClUtilFile.delTree(@tempDir)
+  end
+
+  alias setup set_up
+  alias teardown tear_down
+  
+  # to ward off the new Test::Unit detection of classes with no test
+  # methods
+  def default_test
+    super unless(self.class == TempDirTest)
+  end
+  
+  def makeSubDir(dirname)
+    newdirname = File.join(@tempDir, dirname)
+    File.makedirs(newdirname) if !FileTest.directory?(newdirname)
+    newdirname
+  end
+
+  def makeSampleTextFile(dirname='', size=0)
+    crlfLength = 2
+
+    if size == 0
+      content = 'this is a sample file'
+    else
+      content = ''
+      (size - crlfLength).times do content << 'x' end
+    end
+
+    if dirname.empty?
+      sampleFileDir = @tempDir
+    else
+      sampleFileDir = File.join(@tempDir, dirname)
+    end
+
+    @fileNameInc += 1
+    filename = File.join(sampleFileDir, 'sample' + @fileNameInc.to_s + '.txt')
+    File.open(filename, File::CREAT|File::TRUNC|File::RDWR) do |f|
+      f.puts content
+    end
+    filename
+  end
+end

data/cl/util/test/dirsizetest.rb

@@ -0,0 +1,138 @@
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES LOSS OF USE, DATA, OR PROFITS OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+=end
+
+$LOAD_PATH << '..'
+require 'test'
+require 'dirsize'
+require 'test/unit'
+
+TestData = Struct.new("TestData",
+  :clusterSize,
+  :expectedFileSize,
+  :expectedDiskSpace,
+  :expectedFileSizeIncludeSubs,
+  :expectedDiskSpaceIncludeSubs,
+  :expectedFileCount,
+  :expectedAvgFileSize,
+  :expectedFileCountIncludeSubs,
+  :expectedAvgFileSizeIncludeSubs
+)
+
+class TestDirSize < TempDirTest
+  def set_up
+    super
+    @testData = TestData.new
+  end
+
+  def testLargerSingleton
+    makeSampleTextFile('', 5000)
+    @testData.clusterSize = 4096
+    @testData.expectedFileSize = 5000
+    @testData.expectedDiskSpace = (4096 * 2)
+    @testData.expectedFileSizeIncludeSubs = 5000
+    @testData.expectedDiskSpaceIncludeSubs = (4096 * 2)
+    @testData.expectedFileCount = 1
+    @testData.expectedAvgFileSize = 5000
+    @testData.expectedFileCountIncludeSubs = 1
+    @testData.expectedAvgFileSizeIncludeSubs = 5000
+    doTestDirSize(@testData)
+  end
+
+  def doTestDirSize(testData)
+    dirSize = DirSize.new
+    dirSize.directory = @tempDir
+    dirSize.clusterSize = testData.clusterSize
+    dirSize.getSize
+    assert_equal(testData.expectedFileSize, dirSize.fileSize(false))
+    assert_equal(testData.expectedDiskSpace, dirSize.diskSpace(false))
+    assert_equal(testData.expectedFileSizeIncludeSubs, dirSize.fileSize(true))
+    assert_equal(testData.expectedDiskSpaceIncludeSubs,
+      dirSize.diskSpace(true))
+    assert_equal(testData.expectedDiskSpace - testData.expectedFileSize,
+      dirSize.unusedDiskSpace(false))
+    assert_equal(
+      (testData.expectedDiskSpaceIncludeSubs -
+        testData.expectedFileSizeIncludeSubs), dirSize.unusedDiskSpace(true))
+    assert_equal(testData.expectedFileCount, dirSize.fileCount(false))
+    assert_equal(testData.expectedAvgFileSize, dirSize.avgFileSize(false))
+    assert_equal(testData.expectedFileCountIncludeSubs,
+      dirSize.fileCount(true))
+    assert_equal(testData.expectedAvgFileSizeIncludeSubs,
+      dirSize.avgFileSize(true))
+  end
+
+  def testSmallSingleton
+    makeSampleTextFile('', 1000)
+    @testData.clusterSize = 4096
+    @testData.expectedFileSize = 1000
+    @testData.expectedDiskSpace = (4096 * 1)
+    @testData.expectedFileSizeIncludeSubs = 1000
+    @testData.expectedDiskSpaceIncludeSubs = (4096 * 1)
+    @testData.expectedFileCount = 1
+    @testData.expectedAvgFileSize = 1000
+    @testData.expectedFileCountIncludeSubs = 1
+    @testData.expectedAvgFileSizeIncludeSubs = 1000
+    doTestDirSize(@testData)
+  end
+
+  def testSubDir
+    makeSubDir('suba')
+    makeSubDir("suba\\suba1")
+    makeSampleTextFile('', 1000)
+    makeSampleTextFile('suba', 1000)
+    makeSampleTextFile("suba\\suba1", 1000)
+    makeSampleTextFile("suba\\suba1", 2000)
+    @testData.clusterSize = 4096
+    @testData.expectedFileSize = 1000
+    @testData.expectedDiskSpace = (4096 * 1)
+    @testData.expectedFileSizeIncludeSubs = 5000
+    @testData.expectedDiskSpaceIncludeSubs = (4096 * 4)
+    @testData.expectedFileCount = 1
+    @testData.expectedAvgFileSize = 1000
+    @testData.expectedFileCountIncludeSubs = 4
+    @testData.expectedAvgFileSizeIncludeSubs = 1250
+    doTestDirSize(@testData)
+  end
+
+  def testEmptyDir
+    @testData.clusterSize = 4096
+    @testData.expectedFileSize = 0
+    @testData.expectedDiskSpace = 0
+    @testData.expectedFileCount = 0
+    @testData.expectedAvgFileSize = 0
+    @testData.expectedFileCountIncludeSubs = 0
+    @testData.expectedAvgFileSizeIncludeSubs = 0
+    @testData.expectedFileSizeIncludeSubs = 0
+    @testData.expectedDiskSpaceIncludeSubs = 0
+    doTestDirSize(@testData)
+  end
+end

data/cl/util/test/filetest.rb

@@ -0,0 +1,178 @@
+# $Id: filetest.rb,v 1.3 2002/08/28 16:49:33 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2001, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+(based on BSD Open Source License)
+=end
+
+$LOAD_PATH << '..'
+require 'file'
+require 'test/unit'
+require 'ftools'
+
+# don't inherit from clutiltest.rb.TempDirTest, it uses things that are tested here
+class TestUtilFile < Test::Unit::TestCase
+  READ_WRITE = 0644
+  READ_ONLY = 0444
+
+  def createTestFile(fileName, content, mtime=Time.now, attr=READ_WRITE)
+    f = File.new(fileName, File::CREAT|File::RDWR|File::TRUNC)
+    f.puts(content)
+    f.flush
+    f.close
+    File.utime(mtime, mtime, fileName)
+    File.chmod(attr, fileName)
+  end
+
+  def set_up
+    @files = []
+  end
+
+  def teardown
+    @files.each { | filename | File.delete_all(filename) if File.exists?(filename) }
+    @dirs.reverse_each { | dirname | Dir.delete(dirname) if File.exists?(dirname) }
+  end
+
+  def doTestDelTree(attr)
+    @dirs = ['/tmp/utilfiletest',
+             '/tmp/utilfiletest/subA',
+             '/tmp/utilfiletest/subA/subA1',
+             '/tmp/utilfiletest/subA/subA2',
+             '/tmp/utilfiletest/subB',
+             '/tmp/utilfiletest/subB/subB1',
+             '/tmp/utilfiletest/subB/subB1/subB1a']
+    @dirs.each { | dirName | File.makedirs(dirName) }
+    @files = ['/tmp/utilfiletest/subA/blah.txt',
+              '/tmp/utilfiletest/subA/subA1/blah.txt',
+              '/tmp/utilfiletest/subA/subA2/blah.txt',
+              '/tmp/utilfiletest/subB/blah.txt',
+              '/tmp/utilfiletest/subB/subB1/blah.txt',
+              '/tmp/utilfiletest/subB/subB1/subB1a/blah.txt']
+    @files.each { | filename | createTestFile(filename, 'test content', Time.now, attr) }
+    ClUtilFile.delTree(@dirs[0])
+    @files.each { | fileName | assert(!File.exists?(fileName)) }
+    @dirs.each { | dirName | assert(!File.exists?(dirName)) }
+  end
+
+  def testDelTree
+    doTestDelTree(READ_WRITE)
+  end
+
+  def testDelTreeROFiles
+    doTestDelTree(READ_ONLY)
+  end
+
+  def testDelTreeFileNameMatch
+    @dirs = ['/tmp/utilfiletest',
+             '/tmp/utilfiletest/subA',
+             '/tmp/utilfiletest/subB']
+    @dirs.each { | dirName | File.makedirs(dirName) }
+    @filesToStay = ['/tmp/utilfiletest/subA/blah.doc',
+                    '/tmp/utilfiletest/subB/blah.doc']
+    @filesToDelete = ['/tmp/utilfiletest/subA/blah.txt',
+                      '/tmp/utilfiletest/subB/blah.txt']
+    @files << @filesToStay
+    @files << @filesToDelete
+    @files.flatten!
+
+    @filesToStay.each { | filename | createTestFile(filename, 'test content') }
+    @filesToDelete.each { | filename | createTestFile(filename, 'test content') }
+    ClUtilFile.delTree(@dirs[0], '*.txt')
+    @filesToStay.each { | fileName | assert(File.exists?(fileName)) }
+    @filesToDelete.each { | fileName | assert(!File.exists?(fileName)) }
+    ClUtilFile.delTree(@dirs[0])
+    @filesToStay.each { | fileName | assert(!File.exists?(fileName)) }
+    @filesToDelete.each { | fileName | assert(!File.exists?(fileName)) }
+    @dirs.each { | dirName | assert(!File.exists?(dirName)) }
+  end
+
+  def testDelTreeAging
+    @dirs = ['/tmp/utilfiletest',
+             '/tmp/utilfiletest/subA',
+             '/tmp/utilfiletest/subB']
+    @dirs.each { | dirName | File.makedirs(dirName) }
+    @filesToStay = ['/tmp/utilfiletest/subA/blah0.txt',
+                    '/tmp/utilfiletest/subB/blah1.txt']
+    @filesToDelete = ['/tmp/utilfiletest/subA/blah2.txt',
+                      '/tmp/utilfiletest/subB/blah3.txt']
+    @files << @filesToStay
+    @files << @filesToDelete
+    @files.flatten!
+
+    @filesToStay.each { | filename | createTestFile(filename, 'test content') }
+
+    day = 60 * 60 * 24
+    eightDays = day * 8
+    sevenDays = day * 7
+    @filesToDelete.each { | filename | createTestFile(filename, 'test content', Time.now - eightDays) }
+
+    ClUtilFile.delTree(@dirs[0]) { | fileName |
+      (File.mtime(fileName) < (Time.now - sevenDays))
+    }
+
+    @filesToStay.each { | fileName | assert(File.exists?(fileName)) }
+    @filesToDelete.each { | fileName | assert(!File.exists?(fileName)) }
+    ClUtilFile.delTree(@dirs[0])
+    @filesToStay.each { | fileName | assert(!File.exists?(fileName)) }
+    @filesToDelete.each { | fileName | assert(!File.exists?(fileName)) }
+    @dirs.each { | dirName | assert(!File.exists?(dirName)) }
+  end
+
+  def testDirFiles
+    @dirs = ['/tmp/utilfiletest',
+             '/tmp/utilfiletest/subA',
+             '/tmp/utilfiletest/subA/subA1',
+             '/tmp/utilfiletest/subA/subA2',
+             '/tmp/utilfiletest/subB',
+             '/tmp/utilfiletest/subB/subB1',
+             '/tmp/utilfiletest/subB/subB1/subB1a']
+    @dirs.each { | dirName | File.makedirs(dirName) }
+    @files = ['/tmp/utilfiletest/subA/blah.txt',
+              '/tmp/utilfiletest/subA/subA1/blah.txt',
+              '/tmp/utilfiletest/subA/subA2/blah.txt',
+              '/tmp/utilfiletest/subB/blah.txt',
+              '/tmp/utilfiletest/subB/subB1/blah.txt',
+              '/tmp/utilfiletest/subB/subB1/subB1a/blah.txt']
+    @files.each { | filename | createTestFile(filename, 'test content') }
+    #puts 'Dir.entries'
+    #puts Dir.entries('/tmp/utilfiletest/subA/subA1/')
+    #puts 'Dir.files'
+    #puts Dir.files('/tmp/utilfiletest/subA/subA1/')
+    assert_equal(["blah.txt"], Dir.files('/tmp/utilfiletest/subA/subA1/'))
+  end
+  
+  def testFileExtension
+    assert_equal('rb', File.extension('/test/file.rb'))
+    assert_equal(nil, File.extension('/test/file'))
+    assert_equal('rb', File.extension('/test/file.of.some.such.rb'))
+  end
+end
+
+

data/cl/util/test/installtest.rb

@@ -0,0 +1,12 @@
+$LOAD_PATH << '..'
+
+require 'install'
+require 'test/unit'
+
+class TestInstall < Test::Unit::TestCase
+  def test_set_prefix
+    conf = get_conf({'prefix' => '/tmp/ruby'})
+    assert_equal('/tmp/ruby', conf['prefix'])
+    assert_equal('/tmp/ruby/lib/ruby/site_ruby', conf['sitedir'])
+  end
+end

data/cl/util/test/progresstest.rb

@@ -0,0 +1,43 @@
+# $Id: progresstest.rb,v 1.2 2003/09/12 14:53:53 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2002, Chris Morris
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification,
+are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+this list of conditions and the following disclaimer in the documentation and/or
+other materials provided with the distribution.
+
+3. Neither the names Chris Morris, cLabs nor the names of contributors to this
+software may be used to endorse or promote products derived from this software
+without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
+TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+--------------------------------------------------------------------------------
+=end
+
+$LOAD_PATH << '..'
+require 'progress'
+
+p = Progress.new(10)
+p.start
+(0..9).each do |x| puts p.progress(true); sleep 0.5 end
+
+p = Progress.new(10)
+p.start
+(0..9).each do |x| print p.in_place_pct(true); sleep 0.5 end