Index: openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	31 Oct 2003 09:29:17 -0000	1.14
+++ openacs-4/packages/acs-authentication/tcl/test/sync-test-procs.tcl	31 Oct 2003 10:29:19 -0000	1.15
@@ -960,3 +960,22 @@
     aa_true "result.doc_message is empty" [empty_string_p $result(doc_message)]
     aa_equals "result.document is 'success'" $result(document) "success"
 }
+
+aa_register_case sync_file_get_document {
+    Test the HTTPGet implementation of GetDocument service contract.
+} {
+    set path "[acs_root_dir]/www/SYSTEM/dbtest.tcl"
+
+    aa_log "Getting path '$path'"
+
+    array set result [acs_sc::invoke \
+                          -error \
+                          -contract "auth_sync_retrieve" \
+                          -impl "LocalFilesystem" \
+                          -operation "GetDocument" \
+                          -call_args [list [list SnapshotPath {} IncrementalPath $path]]]
+    
+    aa_equals "result.doc_status is ok" $result(doc_status) "ok"
+    aa_true "result.doc_message is empty" [empty_string_p $result(doc_message)]
+    aa_equals "result.document is 'success'" $result(document) [template::util::read_file $path]
+}