sys-proctable 0.7.3

data/lib/version.h

@@ -0,0 +1,2 @@
+/* version.h - stores the version number for all platforms (that use C) */
+#define SYS_PROCTABLE_VERSION "0.8.0"

data/test/tc_all.rb

@@ -0,0 +1,69 @@
+##################################################
+# tc_all.rb
+#
+# Test suite for methods common to all platforms.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir ".." if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   $LOAD_PATH.unshift Dir.pwd
+end
+
+if File::ALT_SEPARATOR
+   File.copy("lib/os/windows.rb","sys/proctable.rb")
+else
+   extension = ".so"
+   extension = ".bundle" if RUBY_PLATFORM =~ /powerpc|darwin/i
+   extension = ".sl" if RUBY_PLATFORM =~ /hpux/i
+
+   pt_file = "proctable" + extension
+
+   if File.exist?(pt_file)
+      File.copy(pt_file, "sys")
+   end
+end
+
+require "sys/proctable"
+require "test/unit"
+include Sys
+
+class TC_ProcTable_All < Test::Unit::TestCase
+
+   def test_version
+      assert_equal('0.8.0', ProcTable::VERSION, "Bad VERSION constant")
+   end
+
+   def test_fields
+      assert_respond_to(ProcTable, :fields)
+      assert_nothing_raised{ ProcTable.fields }
+      assert_kind_of(Array, ProcTable.fields)
+      assert_kind_of(String, ProcTable.fields.first)
+   end
+
+   def test_ps
+      assert_respond_to(ProcTable, :ps)
+      assert_nothing_raised{ ProcTable.ps }
+      assert_nothing_raised{ ProcTable.ps{} }
+   end
+
+   def test_ps_with_args
+      assert_nothing_raised{ ProcTable.ps(0) }
+      assert_nothing_raised{ ProcTable.ps(nil) }
+      assert_raises(TypeError){ ProcTable.ps("vim") }
+      assert_raises(ArgumentError){ ProcTable.ps(0,1) }
+   end
+
+   def test_ps_return_values
+      assert_kind_of(Array, ProcTable.ps)
+      assert_kind_of(Struct::ProcTableStruct, ProcTable.ps(1))
+      assert_equal(nil, ProcTable.ps(999999999))
+      assert_equal(nil, ProcTable.ps{})
+   end
+
+   alias :set_up :setup
+   alias :tear_down :teardown
+
+end

data/test/tc_freebsd.rb

@@ -0,0 +1,60 @@
+############################################
+# tc_freebsd.rb
+#
+# Test suite for sys-proctable for FreeBSD.
+############################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("proctable.so","sys") if File.exists?("proctable.so")
+   $LOAD_PATH.unshift(Dir.pwd)
+end
+
+require "sys/proctable"
+require "test/unit"
+require "test/tc_all"
+include Sys
+
+class TC_ProcTable_FreeBSD < Test::Unit::TestCase
+
+   def setup
+      @fields = %w/
+         comm pid ppid pgid sid tdev_maj tdev_min flags start
+         utime stime wchan euid ruid rgid egid groups cmdline
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_field_members
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length, "Bad length")
+      assert_equal(@fields, ProcTable.fields, "Bad fields")
+      assert_equal(@fields, @pt.members, msg)
+   end
+
+   def test_struct_member_types
+      @fields.each{ |f|
+         if %w/comm cmdline groups wchan flags/.include?(f)
+            assert_kind_of(String, @pt.send(f), "Bad #{f} type")
+         elsif %w/utime stime/.include?(f)
+            assert_kind_of(Float, @pt.send(f), "Bad #{f} type")
+         elsif %w/start/.include?(f)
+            assert_kind_of(Time, @pt.send(f), "Bad #{f} type")
+         else
+            assert_kind_of(Fixnum, @pt.send(f), "Bad #{f} type")
+         end
+      }
+   end
+
+   def teardown
+      @fields = nil
+      @pt = nil
+   end
+
+   alias :set_up :setup
+   alias :tear_down :teardown
+
+end

data/test/tc_hpux.rb

@@ -0,0 +1,64 @@
+##################################################
+# tc_hpux.rb
+#
+# Test suite for sys-proctable for HP-UX
+# Requires testunit 0.1.6 or later.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("proctable.sl","sys") if File.exists?("proctable.sl")
+   $LOAD_PATH.unshift(Dir.pwd)
+end
+
+require "sys/proctable"
+require "test/unit"
+require "test/tc_all"
+include Sys
+
+class TC_ProcTable_HPUX < Test::Unit::TestCase
+
+   def setup
+      @fields = %w/
+         comm uid pid ppid dsize tsize ssize nice ttydev pgrp pri addr
+         cpu utime stime start flag stat wchan procnum cmd cmdline time
+         cpticks cptickstotal fss pctcpu rssize suid shmsize mmsize usize
+         iosize vtsize vdsize vssize vshmsize vmmsize vusize viosize
+         minorfaults majorfaults nswap nsignals msgrcv msgsnd maxrss
+         sid schedpolicy ticksleft euid egid gid sgid        
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_expected_fields
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length,"Bad length")
+      assert_equal(@fields, ProcTable.fields,"Bad fields")
+      assert_equal(@fields, @pt.members,msg)
+   end
+
+   def test_struct_member_types
+      @fields.each{ |f|
+         if %w/comm stat cmd cmdline ttydev/.include?(f)
+            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
+         elsif %w/pctcpu/.include?(f)
+            assert_kind_of(Float,@pt.send(f),"Bad #{f} type")
+         elsif %w/start/.include(f)
+            assert_kind_of(Time,@pt.send(f),"Bad #{f} type")
+         else
+            assert_kind_of(Fixnum,@pt.send(f),"Bad #{f} type")
+         end
+      }
+   end
+
+   def teardown
+      @fields = nil
+      @pt = nil
+   end
+
+   alias :set_up :setup
+   alias :tear_down :teardown
+end

data/test/tc_kvm_bsd.rb

@@ -0,0 +1,40 @@
+################################################################
+# tc_kvm_bsd.rb
+#
+# Test suite for the BSD specific version of the kvm interface. 
+################################################################
+base = File.basename(Dir.pwd)
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("proctable.so","sys") if File.exists?("proctable.so")
+   $LOAD_PATH.unshift(Dir.pwd)
+end
+
+require "test/unit"
+require "sys/proctable"
+include Sys
+
+class TC_KVM_BSD < Test::Unit::TestCase
+   def setup
+      @fields = %w/
+         pid ppid pgid ruid rgid comm state pct_cpu cpu_num tty_num
+         tty_dev wchan time priority usr_priority nice cmdline start_time
+         max_rss ix_rss id_rss is_rss minflt maxflt nswap inblock oublock
+         msgsnd msgrcv nsignals nvcsw nivcsw user_time system_time
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_field_members
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length, "Bad number of fields")
+      assert_equal(@fields, ProcTable.fields, "Bad field members")
+      assert_equal(@fields, @pt.members, msg)
+   end
+
+   def teardown
+      @fields = nil
+   end
+end

data/test/tc_linux.rb

@@ -0,0 +1,61 @@
+##########################################
+# tc_linux.rb
+#
+# Test suite for sys-proctable for Linux.
+##########################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.delete("sys/proctable.so") rescue nil
+   File.copy("proctable.so","sys") if File.exists?("proctable.so")
+   $LOAD_PATH.unshift(Dir.pwd)
+end
+
+require "sys/proctable"
+require "test/unit"
+require "test/tc_all"
+include Sys
+
+class TC_ProcTable_Linux < Test::Unit::TestCase
+
+   def setup
+      @fields = %w/
+         cmdline cwd exe pid name uid euid gid egid comm state ppid pgrp
+         session tty_num tpgid flags minflt cminflt majflt cmajflt utime
+         stime cutime cstime priority nice itrealvalue starttime vsize
+         rss rlim startcode endcode startstack kstkesp kstkeip signal blocked          
+         sigignore sigcatch wchan nswap cnswap exit_signal processor environ        
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_field_members
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length, "Bad length")
+      assert_equal(@fields, ProcTable.fields, "Bad fields")
+      assert_equal(@fields, @pt.members,msg)
+   end
+
+   def test_struct_member_types
+      @fields.each{ |f|
+         if %w/cmdline cwd exe name comm state/.include?(f)
+            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
+         elsif f == "environ"
+            assert_kind_of(Hash,@pt.environ,"Bad environ type")
+         else
+            assert_kind_of(Integer,@pt.send(f),"Bad #{f} type")
+         end
+      }
+   end
+
+   def teardown
+      @pt = nil
+   end
+
+   alias :set_up :setup
+   alias :tear_down :teardown
+
+end

data/test/tc_sunos.rb

@@ -0,0 +1,65 @@
+##################################################
+# tc_sunos.rb
+#
+# Test suite for sys-proctable for SunOS/Solaris.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("proctable.so","sys") if File.exists?("proctable.so")
+   $LOAD_PATH.unshift(Dir.pwd)
+end
+
+require "sys/proctable"
+require "test/unit"
+require "test/tc_all"
+include Sys
+
+class TC_ProcTable_SunOS < Test::Unit::TestCase
+   def setup
+      @fields = %w/
+         flag nlwp pid ppid pgid sid uid euid gid egid priority
+         nice ttydev time ctime size rss wchan pctcpu pctmem
+         state fname cmdline start processor comm num_args
+         cmd_args lwpid count tstamp create term rtime utime
+         stime ttime tftime dftime kftime ltime slptime wtime
+         stoptime minf majf nswap inblk oublk msnd mrcv sigs
+         vctx ictx sysc ioch
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_field_members
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length, "Bad number of fields")
+      assert_equal(@fields, ProcTable.fields, "Bad field members")
+      assert_equal(@fields, @pt.members, msg)
+   end
+
+   def test_struct_member_types
+      @fields.each{ |f|
+         if %w/comm state fname cmdline/.include?(f)
+            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
+         elsif %w/pctcpu pctmem/.include?(f)
+            assert_kind_of(Float,@pt.send(f),"Bad #{f} type")
+         elsif %w/cmd_args/.include?(f)
+            assert_kind_of(Array,@pt.send(f),"Bad #{f} type")
+         elsif %w/start/.include?(f)
+            assert_kind_of(Time,@pt.send(f),"Bad #{f} type")
+         else
+            assert_kind_of(Fixnum,@pt.send(f),"Bad #{f} type")
+         end
+      }
+   end
+
+   def teardown
+      @pt = nil
+      @fields = nil
+   end
+
+   alias :set_up :setup
+   alias :tear_down :teardown
+end

data/test/tc_top.rb

@@ -0,0 +1,37 @@
+##############################################################################
+# tc_top.rb
+#
+# Test suite for the sys-top package that is included with this distribution.
+##############################################################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir("..") if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("lib/top.rb","sys")
+   $LOAD_PATH.unshift Dir.pwd
+   $LOAD_PATH.unshift Dir.pwd + "/lib"
+end
+
+require "sys/top"
+require "test/unit"
+include Sys
+
+class TC_Top < Test::Unit::TestCase
+   def test_version
+      assert_equal("1.0.1", Top::VERSION)
+   end
+
+   def test_top
+      assert_respond_to(Top,:top)
+      assert_nothing_raised{ Top.top }
+      assert_nothing_raised{ Top.top(5) }
+      assert_nothing_raised{ Top.top(5,"cmdline") }
+      assert_raises(ArgumentError){ Top.top(1,"foo",2) }
+      assert_kind_of(Array,Top.top)
+      assert_equal(10,Top.top.length)
+      assert_equal(5,Top.top(5).length)
+      assert_kind_of(Struct::ProcTableStruct,Top.top.first)
+   end
+end

data/test/tc_windows.rb

@@ -0,0 +1,51 @@
+##################################################
+# tc_windows.rb
+#
+# Test suite for sys-proctable for MS Windows
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == "test" || base =~ /sys-proctable.*/
+   require "ftools"
+   Dir.chdir ".." if base == "test"
+   Dir.mkdir("sys") unless File.exists?("sys")
+   File.copy("lib/os/windows.rb","sys/proctable.rb")
+   $LOAD_PATH.unshift Dir.pwd
+end
+
+require "sys/proctable"
+require "test/unit"
+require "test/tc_all"
+include Sys
+
+class TC_ProcTable_MSWindows < Test::Unit::TestCase
+   def setup
+      @fields = %w/
+         caption cmdline comm creation_class_name creation_date
+         cs_creation_class_name cs_name description executable_path
+         execution_state handle handle_count install_date kernel_mode_time
+         maximum_working_set_size minimum_working_set_size name
+         os_creation_class_name os_name other_operation_count
+         other_transfer_count page_faults page_file_usage
+         peak_virtual_size ppid peak_working_set_size priority
+         private_page_count pid quota_non_paged_pool_usage
+         quota_paged_pool_usage quota_peak_non_paged_pool_usage
+         quota_non_paged_pool_usage read_operation_count read_transfer_count
+         session_id termination_date thread_count user_mode_time virtual_size
+         windows_version working_set_size write_operation_count write_transfer_count
+      /
+      @pt = ProcTable.ps.first
+   end
+
+   def test_field_members
+      msg = "Struct members don't match expected fields"
+      assert_equal(@fields.length, @pt.length, "Bad length")
+      assert_equal(@fields, ProcTable.fields, "Bad fields")
+      assert_equal(@fields, @pt.members, msg)
+   end
+
+   def teardown
+      @pt = nil
+      @fields = nil
+   end
+end