Index: openacs-4/etc/install/install.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/install.sh,v
diff -u -r1.9 -r1.10
--- openacs-4/etc/install/install.sh	5 Sep 2003 14:09:08 -0000	1.9
+++ openacs-4/etc/install/install.sh	8 Sep 2003 05:48:00 -0000	1.10
@@ -186,7 +186,9 @@
     su  `get_config_param pg_db_user` -c "export LD_LIBRARY_PATH=${pg_bindir}/../lib; ${pg_bindir}/dropdb -p $pg_port $pg_db_name; ${pg_bindir}/createdb -p $pg_port $pg_db_name; ${pg_bindir}/createlang -p $pg_port plpgsql $pg_db_name";
 else
     #Oracle
-    su oracle -c "cd $script_path; config_file=$config_file ./oracle/recreate-user.sh";
+    # Need to su to login shell for sqlplus to be in path. Should maybe make ORA_HOME
+    # a config param instead.
+    su - oracle -c "cd $script_path; config_file=$config_file ./oracle/recreate-user.sh";
 fi
 
 # Move away the old sources and checkout new ones check do_checkout
@@ -288,18 +290,21 @@
       echo "$0: Starting basic setup of .LRN at $(date)"
       ${tclwebtest_dir}/tclwebtest -config_file $config_file dotlrn-basic-setup.test
   fi
-  
-  if [ $database == "postgres" ]; then
-      # Run vacuum analyze
-      echo "$0: Beginning 'vacuum analyze' at $(date)"
-      su  `get_config_param pg_db_user` -c "export LD_LIBRARY_PATH=${pg_bindir}/../lib; ${pg_bindir}/vacuumdb -p $pg_port -z `get_config_param pg_db_name`"
-  fi
-    
+      
   if parameter_true $crawl_links; then
       # Search for broken pages
       echo "$0: Starting to crawl links to search for broken pages at $(date)"
       ${tclwebtest_dir}/tclwebtest -config_file $config_file dotlrn-links-check.test
   fi
+
+  # Run the Tcl API tests
+  ${tclwebtest_dir}/tclwebtest -config_file $config_file tcl-api-test.test
+
+  if [ $database == "postgres" ]; then
+      # Run vacuum analyze
+      echo "$0: Beginning 'vacuum analyze' at $(date)"
+      su  `get_config_param pg_db_user` -c "export LD_LIBRARY_PATH=${pg_bindir}/../lib; ${pg_bindir}/vacuumdb -p $pg_port -z `get_config_param pg_db_name`"
+  fi
   
   # Report the time at which we were done
   echo "$0: Finished (re)installing $serverroot at $(date)"
Index: openacs-4/etc/install/tcl-api-test.test
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl-api-test.test,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/etc/install/tcl-api-test.test	8 Sep 2003 05:48:00 -0000	1.1
@@ -0,0 +1,28 @@
+if { [catch {
+    # Source procedures
+    source tclwebtest-functions.tcl
+
+    # Test Execution START
+
+    # Login the site wide admin
+    login_site_wide_admin
+
+    # Run all tests
+    do_request "${server_url}/test/admin/rerun?package_key=&category=&view_by=package&quiet=0"
+
+    # Grep for packages with failed tests
+    if { [regexp -nocase {fail} [response body]] } {
+        puts "$alert_keyword - There are failed tests at $server_url"
+    }
+
+    # Test Execution END
+} result] } {
+    global errorInfo
+    puts stderr $result
+    puts stderr "*** Tcl TRACE ***"
+    puts stderr $errorInfo
+
+    puts "The response body is: [response body]"
+
+    error "Test failed: $result"
+}
Index: openacs-4/etc/install/tclwebtest-functions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/Attic/tclwebtest-functions.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/etc/install/tclwebtest-functions.tcl	4 Sep 2003 16:51:26 -0000	1.1
+++ openacs-4/etc/install/tclwebtest-functions.tcl	8 Sep 2003 05:48:00 -0000	1.2
@@ -814,8 +814,8 @@
     # Goto users page
     do_request "$server_url/dotlrn/admin/users?type=pending"
 
-    # Goto the community page for the site-wide admin (__admin_last_name)
-    link follow ~c $__admin_last_name
+    # Goto the community page for the site-wide admin (assuming he's first in the list)
+    link follow ~u {user\?user_id=}
 
     # Follow the add to dotlrn link
     link follow ~u "user-new-2"