Index: openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl	10 Sep 2003 14:54:57 -0000	1.1
@@ -0,0 +1,73 @@
+ad_library {
+  Register acs-automated-testing test cases for acs-service-contract
+  package on server startup.
+
+  @author Simon Carstensen
+  @creation-date 2003-09-10
+  @cvs-id $Id: acs-service-contract-procs.tcl,v 1.1 2003/09/10 14:54:57 peterm Exp $
+}
+
+aa_register_case acs_sc_impl_new_from_spec {
+    Test the acs_sc::impl::new_from_spec proc.
+} {
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+            set spec {
+                name "foo_contract"
+                description "Blah blah blah blah"
+                operations {
+                    Authenticate {
+                        description {
+                            Validate this username/password combination, and return the result.
+                            Valid auth_status codes are 'ok', 'no_account', 'bad_password', 'auth_error', 'failed_to_connect'. 
+                            The last, 'failed_to_connect', is reserved for communications or implementation errors.
+                            auth_message is a human-readable explanation of what went wrong, may contain HTML. 
+                            Only checked if auth_status is not ok.
+                            Valid account_status codes are 'ok' and 'closed'.
+                            account_message may be supplied regardless of account_status, and may contain HTML.
+                        }
+                        input {
+                            username:string
+                            password:string
+                            parameters:string,multiple
+                        }
+                        output {
+                            auth_status:string
+                            auth_message:string
+                            account_status:string
+                            account_message:string
+                        }
+                    }
+                    GetParameters {
+                        description {
+                            Get an arraay-list of the parameters required by this service contract implementation.
+                        }
+                        output {
+                            parameters:string,multiple
+                        }
+                    }
+                }
+            }
+
+            acs_sc::contract::new_from_spec -spec $spec
+
+            set spec {
+                contract_name "foo_contract"
+                owner "acs-service-contract"
+                name "foo"
+                pretty_name "Foo Driver"
+                aliases {
+                    Authenticate auth::local::authentication::Authenticate
+                    GetParameters auth::local::authentication::GetParameters
+                }
+            }
+            
+            set impl_id [acs_sc::impl::new_from_spec -spec $spec]
+
+            acs_sc::impl::get -impl_id $impl_id -array impl
+
+            aa_equals "pretty_name dit not get inserted correctly" $impl(impl_pretty_name) "Foo Driver"
+        }
+}