# /www/admin/acceptance-tests/vc.tcl ad_page_contract { Acceptance tests for the version-control module @author ron@arsdigita.com @creation-date Fri Aug 4 04:41:29 2000 @cvs-id $Id: index.tcl,v 1.2 2002/09/10 22:23:27 jeffd Exp $ } set page_title "Version Control Acceptance Tests" # Run various tests using the top-level readme file set path [file join [acs_root_dir] readme.txt] ReturnHeaders ns_write " [ad_header $page_title]
The following tests are all run using:
path = $path
If the version-control module is functioning correctly then you will see a series of results from vc procedures followed by a success message. If there is any problem you should be prompted to submit a bug report.
CVSROOT=[ad_parameter CVSROOT vc] CvsPath=[ad_parameter CvsPath vc]
vc_path_relative = [vc_path_relative $path] vc_path_to_module = [vc_path_to_module $path] vc_fetch_repository = [vc_fetch_repository $path] vc_fetch_root = [vc_fetch_root $path] vc_fetch_summary = [vc_fetch_summary $path] vc_fetch_date = [vc_fetch_date $path] vc_fetch_revision = [vc_fetch_revision $path]
vc_status = [vc_status $path] vc_log = [vc_log $path]