[Bps-public-commit] r11565 - SVN-PropDB/t

[clkao at bestpractical.com]

Author: clkao
Date: Sat Apr  5 21:59:10 2008
New Revision: 11565

Modified:
   SVN-PropDB/t/sd-hm.t

Log:
gooduser is not as good as onlooker.

Modified: SVN-PropDB/t/sd-hm.t
==============================================================================
--- SVN-PropDB/t/sd-hm.t	(original)
+++ SVN-PropDB/t/sd-hm.t	Sat Apr  5 21:59:10 2008
@@ -26,15 +26,15 @@
 my $server = BTDT::Test->make_server;
 my $URL = $server->started_ok;
 
-$URL =~ s|http://|http://gooduser\@example.com:secret@|;
+$URL =~ s|http://|http://onlooker\@example.com:something@|;
 
 ok(1, "Loaded the test script");
 my $root = BTDT::CurrentUser->superuser;
 my $as_root = BTDT::Model::User->new(current_user => $root);
-$as_root->load_by_cols(email => 'gooduser at example.com');
+$as_root->load_by_cols(email => 'onlooker at example.com');
 my ($val,$msg ) =$as_root->set_accepted_eula_version(Jifty->config->app('EULAVersion'));
 ok($val,$msg);
-my $GOODUSER = BTDT::CurrentUser->new( email => 'gooduser at example.com' );
+my $GOODUSER = BTDT::CurrentUser->new( email => 'onlooker at example.com' );
 $GOODUSER->user_object->set_accepted_eula_version(Jifty->config->app('EULAVersion'));
 my $task = BTDT::Model::Task->new(current_user => $GOODUSER);
 $task->create(
@@ -59,6 +59,11 @@
 
 run_output_matches('sd', ['ticket', '--list', '--regex', '.'], ["$flyman_uuid Crash Man (.*)"]);
 
+
+($ret, $out, $err) = run_script('sd', ['ticket', '--show', '--uuid', $flyman_uuid]);
+diag $out;
+
+
 run_output_matches('sd', ['ticket', '--create', '--summary', 'YATTA', '--status', 'new'], [qr/Created ticket (.*)(?{ $yatta_uuid = $1 })/]);
 
 diag $yatta_uuid;