rwdtinker 1.60 → 1.61

data/code/01rwdcore/01rwdcore.rb

@@ -7,11 +7,13 @@
 class RwdTinker  < RWDialog
  
   def main
-  @rwd_window = "main"
+    @rwd_window = "main"
     @result = "idle"
     @display= "idle"
-
+    if TestNow 
     
+      rwdtest_harness
+    end
   end
   
   def inspect

data/code/01rwdcore/test_cases.rb

@@ -0,0 +1,126 @@
+# test harness
+def rwdtinker_all_tests 
+print "in rwdtinker all tests\n"
+test_runrwdtinkerbackwindow
+ end
+
+
+def test_runrwdtinkerbackwindow
+   
+require 'test/unit' 
+  begin
+  
+runrwdtinkerbackwindow
+
+   raise NotImplementedError, 'Need to write test_runrwdtinkerbackwindow'
+
+   rescue  NotImplementedError
+  $stderr.print $!
+  
+  end
+  end
+  
+  
+
+  def test_choosenewhelptopic
+    raise NotImplementedError, 'Need to write test_choosenewhelptopic'
+  end
+
+
+  def test_listinstalledfiles
+    raise NotImplementedError, 'Need to write test_listinstalledfiles'
+  end
+
+  
+  def test_listzipfilestoinstall
+    raise NotImplementedError, 'Need to write test_listzipfilestoinstall'
+  end
+
+  def test_loadconfigurationrecord
+    raise NotImplementedError, 'Need to write test_loadconfigurationrecord'
+  end
+
+  def test_loadconfigurationvariables
+    raise NotImplementedError, 'Need to write test_loadconfigurationvariables'
+  end
+
+  def test_loadgemspecrecord
+    raise NotImplementedError, 'Need to write test_loadgemspecrecord'
+  end
+
+  def test_loadrubyslippersconfiguration
+    raise NotImplementedError, 'Need to write test_loadrubyslippersconfiguration'
+  end
+
+  def test_loadrubyslippersconfigurationvariables
+    raise NotImplementedError, 'Need to write test_loadrubyslippersconfigurationvariables'
+  end
+
+  def test_main
+    raise NotImplementedError, 'Need to write test_main'
+  end
+
+  def test_network_demon
+    raise NotImplementedError, 'Need to write test_network_demon'
+  end
+
+  def test_network_start
+    raise NotImplementedError, 'Need to write test_network_start'
+  end
+
+  def test_openappletname
+    raise NotImplementedError, 'Need to write test_openappletname'
+  end
+
+  def test_removeapplet
+    raise NotImplementedError, 'Need to write test_removeapplet'
+  end
+
+  def test_returntomain
+    raise NotImplementedError, 'Need to write test_returntomain'
+  end
+
+  def test_runcontrolcommand
+    raise NotImplementedError, 'Need to write test_runcontrolcommand'
+  end
+
+
+  def test_runhelpwindow
+    raise NotImplementedError, 'Need to write test_runhelpwindow'
+  end
+
+
+  
+
+  def test_runrwdtinkerversion
+    raise NotImplementedError, 'Need to write test_runrwdtinkerversion'
+  end
+
+  def test_runrwdtinkerwin2version
+    raise NotImplementedError, 'Need to write test_runrwdtinkerwin2version'
+  end
+
+  def test_runviewplatform
+    raise NotImplementedError, 'Need to write test_runviewplatform'
+  end
+
+  def test_rwdtinkerversiondiagnostic
+    raise NotImplementedError, 'Need to write test_rwdtinkerversiondiagnostic'
+  end
+
+  def test_rwdwindowreturn
+    raise NotImplementedError, 'Need to write test_rwdwindowreturn'
+  end
+
+  def test_saveconfigurationrecord
+    raise NotImplementedError, 'Need to write test_saveconfigurationrecord'
+  end
+
+
+  def test_viewappletcontents
+    raise NotImplementedError, 'Need to write test_viewappletcontents'
+  end
+
+
+  
+ 

data/code/01rwdcore/test_harness.rb

@@ -0,0 +1,15 @@
+# this to start the test harness
+def rwdtest_harness
+ 
+print "in test harness\n"
+$testharnessarray.each { |x| 
+print "calling #{x}\n"
+eval("#{x}")
+ 
+ }
+ 
+   end
+ 
+
+
+

data/configuration/rwdtinker.dist

@@ -1,4 +1,4 @@
-##VERSION:1.60
+##VERSION:1.61
 ConfigurationDir = "configuration" # for use in program - init.rb has this value without using this constant
 CodeName = "rwdtinker"
 CodeNameFile = CodeName + ".rb"
@@ -12,4 +12,4 @@ LangDir = "lang"
    $rwdcontrolports =["13713","13714","13715","13716","13717","13718"]
  $port = 7705
 
-RwdTinkerVersion = "1.60"
+RwdTinkerVersion = "1.61"

data/gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd

@@ -1,3 +1,3 @@
 $rwdguivar=
 "
- <row> <p align=\"center\">copyright s. gibson 2004</p></row>"
+ <row> <p align=\"center\">copyright s. gibson 2004,2005</p></row>"

data/init.rb

@@ -65,6 +65,9 @@ MAINconfignew =  "rwdconfig.cnf"
 MAINconfigdist = "rwdconfig.dist"
 Rconftool::install(MAINconfigdist,MAINconfignew)
 
+#load main config file
+load 'rwdconfig.cnf'
+
  Dir.chdir("configuration")    #changes the current working directory
       
  fileList = Dir.new(".").entries.sort.reverse.delete_if { |x| ! (x =~ /dist$/) } #creates an Array separated with \n

data/rwd_files/HowTo_Tinker.txt

@@ -227,6 +227,9 @@ http://www.erikveen.dds.nl/rubywebdialogs/index.html
 Thanks, Steven Gibson
 
 == Changelog
+version 1.61
+ add in test harness
+
 version 1.60
  add rwdapplication info to diagnostic
  turn rescue on in diagnostic upload

data/rwdconfig.dist

@@ -1,6 +1,10 @@
-##VERSION:1.57
+##VERSION:1.61
 # rwdtinker core configuration file
 ##NAME: ConfigLocation:0
 ConfigLocation=""
 ##NAME: ZipsLocation:0
- ZipsLocation=""
+ ZipsLocation=""
+##NAME:$testharnessarray:0
+$testharnessarray = ["rwdtinker_all_tests"]
+##NAME:TestNow:0
+TestNow=false

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.6
 specification_version: 1
 name: rwdtinker
 version: !ruby/object:Gem::Version 
-  version: "1.60"
-date: 2005-03-12
+  version: "1.61"
+date: 2005-03-20
 summary: rwdtinker application is a framework to program for RubyWebDialogs.
 require_paths: 
   - "."
@@ -36,6 +36,8 @@ files:
   - code/01rwdcore/rwdtinkerversion.rb
   - code/01rwdcore/rwdwindowreturn.rb
   - code/01rwdcore/uploadreturns.rb
+  - code/01rwdcore/test_cases.rb
+  - code/01rwdcore/test_harness.rb
   - code/dd0viewphoto/dd0viewphoto.rb
   - code/superant.com.rwdtinkerbackwindow/controlclient.rb
   - code/superant.com.rwdtinkerbackwindow/diagnostictab.rb
@@ -101,11 +103,7 @@ files:
   - gui/frontwindowz1end/frontwindowend/xx0rwdfirsttab.rwd
   - gui/helpaboutbegin/superant.com.helpaboutbegin
   - gui/helpaboutbegin/superant.com.helpaboutbegin/ya0helpscreenstart.rwd
-  - gui/helpaboutinstalled/superant.com.rwdwin2helpabout
   - gui/helpaboutinstalled/superant.com.tinkerhelpabout
-  - gui/helpaboutinstalled/superant.com.rwdwin2helpabout/1appname.rwd
-  - gui/helpaboutinstalled/superant.com.rwdwin2helpabout/3copyright.rwd
-  - gui/helpaboutinstalled/superant.com.rwdwin2helpabout/5version.rwd
   - gui/helpaboutinstalled/superant.com.tinkerhelpabout/1appname.rwd
   - gui/helpaboutinstalled/superant.com.tinkerhelpabout/3copyright.rwd
   - gui/helpaboutinstalled/superant.com.tinkerhelpabout/5version.rwd

data/gui/helpaboutinstalled/superant.com.rwdwin2helpabout/1appname.rwd

@@ -1,4 +0,0 @@
-$rwdguivar=
-"
-<panel>
- <row> <p align=\"center\">#{Message[:rwdtinker_window_2]}</p></row>"

data/gui/helpaboutinstalled/superant.com.rwdwin2helpabout/3copyright.rwd

@@ -1,3 +0,0 @@
-$rwdguivar=
-"
- <row> <p align=\"center\">copyright s. gibson 2004</p></row>"

data/gui/helpaboutinstalled/superant.com.rwdwin2helpabout/5version.rwd

@@ -1,10 +0,0 @@
-$rwdguivar=
-"
-      <horizontal>
-       <button caption=#{Message[:clickfor_version]} action=\"runrwdtinkerwin2version\"/>
-    </horizontal>
-          <p>%rwdtinkerwin2versiondisplay%</p>
-
-</panel>"
-
-