Index: openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl	14 Nov 2003 12:00:51 -0000	1.1
@@ -0,0 +1,37 @@
+ad_library {
+    Automated tests.
+
+    @author Simon Carstensen
+    @creation-date 11 November 2003
+    @cvs-id $Id: lars-blogger-procs.tcl,v 1.1 2003/11/14 12:00:51 simonc Exp $
+}
+
+aa_register_case lars_blog_add_entry {
+    Test the lars_blog_entry_add proc.
+} {    
+
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+
+            # Initialize variables
+            set entry_id [db_nextval "acs_object_id_seq"]
+            set package_id [ad_conn package_id]
+
+            # Add entry
+            set entry_id [lars_blog_entry_add \
+                              -entry_id $entry_id \
+                              -package_id $package_id \
+                              -title "Foobar" \
+                              -content "Just a test" \
+                              -content_format "text/plain" \
+                              -entry_date "2003-11-11" \
+                              -draft_p t]
+
+            set success_p [db_string success_p {
+                select 1 from pinds_blog_entries where entry_id = :entry_id
+            } -default "0"]
+
+            aa_equals "entry was added succesfully" $success_p 1
+        }
+}