[Bps-public-commit] r11559 - in SVN-PropDB: .

[jesse at bestpractical.com]

Author: jesse
Date: Sat Apr  5 21:23:25 2008
New Revision: 11559

Modified:
   SVN-PropDB/   (props changed)
   SVN-PropDB/t/sd-hm.t

Log:
 r29293 at 31b:  jesse | 2008-04-05 15:22:51 -1000
 *now we mark our user as having accepted the eula


Modified: SVN-PropDB/t/sd-hm.t
==============================================================================
--- SVN-PropDB/t/sd-hm.t	(original)
+++ SVN-PropDB/t/sd-hm.t	Sat Apr  5 21:23:25 2008
@@ -5,8 +5,8 @@
 
 # you need to run this test script from the BTDT directory
 
-eval 'use BTDT::Test; 1;'
-    or plan skip_all => 'requires 3.7 to run tests.'.$@;
+eval 'use BTDT::Test; 1;' or die "$@";
+
 
 my $server = BTDT::Test->make_server;
 my $URL = $server->started_ok;
@@ -14,8 +14,13 @@
 $URL =~ s|http://|http://gooduser\@example.com:secret@|;
 
 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');
+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' );
+$GOODUSER->user_object->set_accepted_eula_version(Jifty->config->app('EULAVersion'));
 my $task = BTDT::Model::Task->new(current_user => $GOODUSER);
 $task->create(
     summary => "Fly Man",
@@ -26,8 +31,8 @@
 my ($ret, $out, $err);
 
 my $sd_rt_url = "hm:$URL";
-
-($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url]);
+warn $URL;
+eval { ($ret, $out, $err) = run_script('sd', ['pull', $sd_rt_url])};
 diag $err;
 
 my ($yatta_uuid, $flyman_uuid);