[prev] [thread] [next] [lurker] [Date index for 2002/09/12]
Update of /cvsroot/siesta/siesta/t In directory usw-pr-cvs1:/tmp/cvs-serv25506/t Modified Files: 05setup_database.t Log Message: Changed to use nacho Index: 05setup_database.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/05setup_database.t,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- 05setup_database.t 22 Aug 2002 18:54:03 -0000 1.2 +++ 05setup_database.t 12 Sep 2002 11:35:07 -0000 1.3 @@ -3,8 +3,32 @@ # named 05 as the plugins need to suck on real data, so this should # happen first -use Test::More tests => 1; +use Test::More tests => 8; + +my $DB = 't/test.db'; +my $NACHO = "$^X -Iblib/lib -Iblib/arch bin/nacho -d $DB "; -system "$^X -Iblib/lib -Iblib/arch bin/create_db.pl t/test.db bin/create_db.sql t/create_db.sql"; +system "$NACHO create-database $DB"; is( $?, 0, "create script ran OK" ); + +system "$NACHO new-user jay\@front-of.quick-stop Jay"; +is( $?, 0, "added jay" ); + +system "$NACHO new-user bob\@front-of.quick-stop Silent Bob"; +is( $?, 0, "added Silent Bob" ); + +system "$NACHO new-user dante\@quick-stop Dante Hicks"; +is( $?, 0, "added Dante" ); + +system "$NACHO new-user randal\@rst-video Randal Graves"; +is( $?, 0, "added Randal" ); + +system "$NACHO new-list dealers jay\@front-of.quick-stop dealers\@front-of.quick-stop dealers-bounce\@front-of.quick-stop"; +is( $?, 0, "created dealers" ); + +system "$NACHO add-user-list dealers jay\@front-of.quick-stop bob\@front-of.quick-stop"; +is( $?, 0, "add bob and jay to dealers" ); + +system "$NACHO set-plugins dealers SimpleSig MembersOnly Send"; +is( $?, 0, "set the plugins" );
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52