From 0bf4b7ccc36a635c87b16b4ea30be43a29df1c2a Mon Sep 17 00:00:00 2001
From: Cyan Ogilvie <cyan@tirion.(none)>
Date: Mon, 3 Sep 2007 13:26:36 +0200
Subject: [PATCH] 0.88

---
 pkgIndex.tcl                   | 4 ++--
 tests/test_dschan.tcl          | 2 +-
 tests/test_dschan_backend.itcl | 2 +-
 tlc-base.tcl                   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/pkgIndex.tcl b/pkgIndex.tcl
index 6ccf51a..0a9e510 100755
--- a/pkgIndex.tcl
+++ b/pkgIndex.tcl
@@ -1,4 +1,4 @@
 #Tcl package index file, version 1.0
 
-package ifneeded TLC-base 0.87.0 [list eval [list namespace eval ::tlc [list variable library $dir]]\n[list source [file join $dir tlc-base.tcl]]]
-package ifneeded TLC 0.87.0 [list source [file join $dir tlc.tcl]]
+package ifneeded TLC-base 0.88.0 [list eval [list namespace eval ::tlc [list variable library $dir]]\n[list source [file join $dir tlc-base.tcl]]]
+package ifneeded TLC 0.88.0 [list source [file join $dir tlc.tcl]]
diff --git a/tests/test_dschan.tcl b/tests/test_dschan.tcl
index d82402e..1482ba3 100755
--- a/tests/test_dschan.tcl
+++ b/tests/test_dschan.tcl
@@ -15,7 +15,7 @@ authenticator::Authenticator auth -ip localhost -pbkey authenticator.pub
 
 auth waitfor login_allowed
 
-if {![auth login "cyan@cf" "foo"]} {
+if {![auth login "cyan@nett" "foo"]} {
 	if {![auth login "user@cf" "user"]} {
 		puts stderr "Cannot login: [auth last_login_message]"
 		exit -1
diff --git a/tests/test_dschan_backend.itcl b/tests/test_dschan_backend.itcl
index e90cf6b..933c5c6 100755
--- a/tests/test_dschan_backend.itcl
+++ b/tests/test_dschan_backend.itcl
@@ -23,7 +23,7 @@ authenticator::Component comp -svc "test" -auth ::auth -prkeyfn "test.priv"
 
 tlc::DSchan_backend ds -comp comp -tag "testds" -headers {
 	"ID" "Foo" "Bar" "Baz"
-} -dbfile "/tmp/test_dschan.db"
+} -dbfile "/tmp/test_dschan.db" -persist 1
 #-persist 1
 
 proc check_cb {user pool extra} {
diff --git a/tlc-base.tcl b/tlc-base.tcl
index c758336..b49e8d0 100755
--- a/tlc-base.tcl
+++ b/tlc-base.tcl
@@ -4,7 +4,7 @@ package require Itcl 3.1
 namespace eval ::tlc {
 	namespace export *
 
-	variable version	0.87.0
+	variable version	0.88.0
 
 	variable log
 	set log(threshold)	20
-- 
2.11.4.GIT