sys-proctable 0.7.4-mswin32

data/lib/sys/top.rb

@@ -0,0 +1,23 @@
+require "sys/proctable"
+module Sys
+   class Top
+      VERSION = "1.0.1"
+      WINDOWS = PLATFORM.match("mswin")
+
+      def self.top(num=10, field="pctcpu")
+         # Sort by pid on Windows by default
+         if WINDOWS && field == "pctcpu"
+            field = "pid"
+         end
+         
+         # Linux does not have a pctcpu field yet
+         if RUBY_PLATFORM =~ /linux/ && field == "pctcpu"
+            field = "pid"
+         end
+            
+         Sys::ProcTable.ps.sort{ |a,b|
+            b.send(field) <=> a.send(field)
+         }[0..num-1]
+      end
+   end
+end

data/test/tc_all.rb

@@ -0,0 +1,65 @@
+##################################################
+# tc_all.rb
+#
+# Test suite for methods common to all platforms.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   require 'fileutils'
+   Dir.chdir '..' if base == 'test'
+
+   if RUBY_PLATFORM.match('mswin')
+      File.rename('lib/sys/windows.rb', 'lib/sys/proctable.rb')
+   else
+      require 'rbconfig'
+      file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+      Dir.mkdir('sys') unless File.exists?('sys')
+      FileUtils.cp(file, 'sys')
+   end
+
+   $LOAD_PATH.unshift(Dir.pwd)
+   $LOAD_PATH.unshift(Dir.pwd + '/lib')
+end
+
+require 'sys/proctable'
+require 'test/unit'
+include Sys
+
+class TC_ProcTable_All < Test::Unit::TestCase
+
+   def test_version
+      assert_equal('0.7.4', ProcTable::VERSION)
+   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,64 @@
+############################################
+# tc_freebsd.rb
+#
+# Test suite for sys-proctable for FreeBSD.
+############################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   require 'fileutils'
+   require 'rbconfig'
+
+   Dir.chdir '..' if base == 'test'
+   file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp(file, 'sys')
+
+   $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,67 @@
+##################################################
+# tc_hpux.rb
+#
+# Test case for sys-proctable for HP-UX.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   require 'fileutils'
+   require 'rbconfig'
+
+   Dir.chdir('..') if base == 'test'
+   file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp(file, 'sys')
+
+   $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,45 @@
+################################################################
+# 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 'fileutils'
+   require 'rbconfig'
+
+   Dir.chdir '..' if base == 'test'
+   file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp(file, 'sys')
+
+   $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,64 @@
+##########################################
+# tc_linux.rb
+#
+# Test suite for sys-proctable for Linux.
+##########################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   require 'fileutils'
+   require 'rbconfig'
+
+   Dir.chdir '..' if base == 'test'
+   file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp(file, 'sys')
+
+   $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,69 @@
+##################################################
+# tc_sunos.rb
+#
+# Test suite for sys-proctable for SunOS/Solaris.
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   require 'fileutils'
+   require 'rbconfig'
+
+   Dir.chdir '..' if base == 'test'
+   file = 'ext/proctable.' + Config::CONFIG['DLEXT']
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp(file, 'sys')
+
+   $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,36 @@
+##############################################################################
+# 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 'fileutils'
+   Dir.chdir('..') if base == 'test'
+   Dir.mkdir('sys') unless File.exists?('sys')
+   FileUtils.cp('lib/top.rb', 'sys')
+   $LOAD_PATH.unshift Dir.pwd
+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,49 @@
+##################################################
+# tc_windows.rb
+#
+# Test suite for sys-proctable for MS Windows
+##################################################
+base = File.basename(Dir.pwd)
+
+if base == 'test' || base =~ /sys-proctable.*/
+   Dir.chdir('..') if base == 'test'
+   File.rename("lib/sys/windows.rb", "lib/sys/proctable.rb")
+   $LOAD_PATH.unshift(Dir.pwd + '/lib')
+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