abtlinux-svn Mailing List for ABout Time Linux (AbTLinux) (Page 10)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 336
          http://svn.sourceforge.net/abtlinux/?rev=336&view=rev
Author:   eschabell
Date:     2007-06-15 03:32:13 -0700 (Fri, 15 Jun 2007)

Log Message:
-----------
Created unit test to detect if package is installed. 

Wrote packageInstalled to determine if package is installed, some cleanup of requires also necessary.

Modified Paths:
--------------
    src/trunk/AbtSystemManager.rb
    src/trunk/TestAbtSystemManager.rb
    src/trunk/abtconfig.rb

Modified: src/trunk/AbtSystemManager.rb
===================================================================

--- src/trunk/AbtSystemManager.rb	2007-06-15 09:52:43 UTC (rev 335)
+++ src/trunk/AbtSystemManager.rb	2007-06-15 10:32:13 UTC (rev 336)
@@ -32,6 +32,31 @@
   
   private
   
+  ##
+  # Determines if given file is in given directory.
+  # 
+  # <b>PARAM</b> <i>String</i> - directory path to search.
+  # <b>PARAM</b> <i>String</i> - entry we are looking for in given directory.
+  #
+  # <b>RETURN</b> <i>boolean</i> - True if entry found in given directory, 
+  # otherwise false.
+  ##
+  def foundEntry( directory, name )
+    Find.find( directory ) do |path|
+      
+      Find.prune if [".", ".."].include? path
+      case name
+        when String
+          return true if File.basename( path ) == name
+      else
+        raise ArgumentError
+      end
+      
+    end
+    
+    return false  # match not found.  
+  end
+  
   public
   
   ##
@@ -140,4 +165,27 @@
   ##
   def setPackageTreeLocation( location )
   end
-end
+    
+  ##
+  # Checks if the given package is installed by checking for entry in the
+  # installed directory.
+  #
+  # <b>PARAM</b> <i>String</i> - Package name.
+  #
+  # <b>RETURN</b> <i>boolean</i> - True if package installed, otherwise
+  # false.
+  ##
+  def packageInstalled( package )
+    require "packages/#{package}"
+    sw = eval( "#{package.capitalize}.new" )
+    details = sw.details
+    
+    if ( foundEntry( $PACKAGE_INSTALLED, sw.srcDir ) )
+      return true
+    end
+    
+    
+    return false
+  end
+ 
+end
\ No newline at end of file

Modified: src/trunk/TestAbtSystemManager.rb
===================================================================
--- src/trunk/TestAbtSystemManager.rb	2007-06-15 09:52:43 UTC (rev 335)
+++ src/trunk/TestAbtSystemManager.rb	2007-06-15 10:32:13 UTC (rev 336)
@@ -2,7 +2,7 @@
 
 require 'test/unit/testcase'
 require 'test/unit/autorunner'
-require 'AbtSystemManager'
+require 'abtconfig'
 
 ##
 # TestAbtSystemManager.rb 
@@ -107,5 +107,12 @@
     assert( @sys.setPackageTreeLocation( "/var/lib/ericsPackages" ), 
                                       "testSetPackageTreeLocation()" )
   end
+    
+  ##
+  # Test method for 'AbtSystemManager.testPackageInstalled()'
+  ## 
+  def testPackageInstalled
+    assert( @sys.packageInstalled( "ipc" ), "testPackageInstalled()" )
+  end
   
 end

Modified: src/trunk/abtconfig.rb
===================================================================
--- src/trunk/abtconfig.rb	2007-06-15 09:52:43 UTC (rev 335)
+++ src/trunk/abtconfig.rb	2007-06-15 10:32:13 UTC (rev 336)
@@ -35,6 +35,7 @@
 require 'AbtUsage'
 
 require 'fileutils'
+require 'find'
 
 # default paths / locations.
 $ABT_LOGS           = "/var/log/abt"


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2006	Jan	Feb	Mar (12)	Apr (4)	May (61)	Jun (5)	Jul (12)	Aug (1)	Sep	Oct (29)	Nov (89)	Dec (37)
2007	Jan (4)	Feb (33)	Mar (12)	Apr	May (2)	Jun (13)	Jul (76)	Aug (7)	Sep (21)	Oct	Nov	Dec (33)
2008	Jan (32)	Feb (24)	Mar (17)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec (10)

abtlinux-svn Mailing List for ABout Time Linux (AbTLinux) (Page 10)

abtlinux-svn — Shows all subversion repository commits (read-only).