From b415b347328e7db0f41f0294c06060c6dd156b3d Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Sat, 9 Feb 2008 01:57:42 +0000 Subject: Add file object support to the wallet server. --- perl/t/schema.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl/t/schema.t') diff --git a/perl/t/schema.t b/perl/t/schema.t index 8ee8a02..c7e9133 100755 --- a/perl/t/schema.t +++ b/perl/t/schema.t @@ -4,7 +4,7 @@ # t/schema.t -- Tests for the wallet schema class. # # Written by Russ Allbery -# Copyright 2007 Board of Trustees, Leland Stanford Jr. University +# Copyright 2007, 2008 Board of Trustees, Leland Stanford Jr. University # # See LICENSE for licensing terms. @@ -22,7 +22,7 @@ ok (defined $schema, 'Wallet::Schema creation'); ok ($schema->isa ('Wallet::Schema'), ' and class verification'); my @sql = $schema->sql; ok (@sql > 0, 'sql() returns something'); -is (scalar (@sql), 28, ' and returns the right number of statements'); +is (scalar (@sql), 29, ' and returns the right number of statements'); # Connect to a database and test create. db_setup; -- cgit v1.2.3