Fix Mech and timezone issues.

perlDreamer · perlDreamer · commit ffa11a7191ba · 2011-10-19T13:39:29.000-07:00
diff --git a/t/Asset/Wobject/EventManagementSystem.t b/t/Asset/Wobject/EventManagementSystem.t
@@ -763,7 +763,7 @@ my @unticks = qw( assetId vendorId seatsAvailable price eventNumber location rel
 for my $val ( @unticks ) {
     $mech->untick( 'fieldsToImport', $val );
 }
-$mech->click_ok( "submit", "import files" );
+$mech->click_ok( "send", "import files" );
 
 # Events exist
 my $events = $ems->getLineage( ['children'], {
@@ -777,15 +777,15 @@ cmp_deeply(
             { 
                 title => "One",
                 description => "Oneness",
-                startDate => WebGUI::DateTime->new( $session, mysql => '2010-01-01 00:00:00', time_zone => DateTime::TimeZone::Local->TimeZone() )->toMysql,
+                startDate => WebGUI::DateTime->new( $session, mysql => '2010-01-01 00:00:00', time_zone => $session->user->get('timeZone'), )->toMysql,
                 duration => 2,
             }
         ),
         superhashof(
             {
                 title => 'Two',
                 description => 'Twoness',
-                startDate => WebGUI::DateTime->new( $session, mysql => '2010-02-02 00:00:00', time_zone => DateTime::TimeZone::Local->TimeZone() )->toMysql,
+                startDate => WebGUI::DateTime->new( $session, mysql => '2010-02-02 00:00:00', time_zone => $session->user->get('timeZone') )->toMysql,
                 duration => 3,
             }
         ),

Original file line number	Diff line number	Diff line change
`@@ -763,7 +763,7 @@ my @unticks = qw( assetId vendorId seatsAvailable price eventNumber location rel`
`763`	`763`	`for my $val ( @unticks ) {`
`764`	`764`	`$mech->untick( 'fieldsToImport', $val );`
`765`	`765`	`}`
`766`		`-$mech->click_ok( "submit", "import files" );`
	`766`	`+$mech->click_ok( "send", "import files" );`
`767`	`767`
`768`	`768`	`# Events exist`
`769`	`769`	`my $events = $ems->getLineage( ['children'], {`
`@@ -777,15 +777,15 @@ cmp_deeply(`
`777`	`777`	`{`
`778`	`778`	`title => "One",`
`779`	`779`	`description => "Oneness",`
`780`		`- startDate => WebGUI::DateTime->new( $session, mysql => '2010-01-01 00:00:00', time_zone => DateTime::TimeZone::Local->TimeZone() )->toMysql,`
	`780`	`+ startDate => WebGUI::DateTime->new( $session, mysql => '2010-01-01 00:00:00', time_zone => $session->user->get('timeZone'), )->toMysql,`
`781`	`781`	`duration => 2,`
`782`	`782`	`}`
`783`	`783`	`),`
`784`	`784`	`superhashof(`
`785`	`785`	`{`
`786`	`786`	`title => 'Two',`
`787`	`787`	`description => 'Twoness',`
`788`		`- startDate => WebGUI::DateTime->new( $session, mysql => '2010-02-02 00:00:00', time_zone => DateTime::TimeZone::Local->TimeZone() )->toMysql,`
	`788`	`+ startDate => WebGUI::DateTime->new( $session, mysql => '2010-02-02 00:00:00', time_zone => $session->user->get('timeZone') )->toMysql,`
`789`	`789`	`duration => 3,`
`790`	`790`	`}`
`791`	`791`	`),`