[prev] [thread] [next] [lurker] [Date index for 2003/11/27]
Author: jon
Date: 2003-11-27 08:54:59 +0200 (Thu, 27 Nov 2003)
New Revision: 73
Modified:
t/07-web-change-data.t
t/13-change-proposal.t
Log:
Updated templates to be XML compliant, relative pathed urls
Modified: t/07-web-change-data.t
===================================================================
--- t/07-web-change-data.t 2003-11-27 06:46:42 UTC (rev 72)
+++ t/07-web-change-data.t 2003-11-27 06:54:59 UTC (rev 73)
@@ -70,10 +70,10 @@
$webapp->query($q);
my $result = $webapp->run();
like($result, qr@<h2>Change Personal Information</h2>@, 'personal_info page accessed');
- like($result, qr@\Q<tr><td>First Name:</td><td><input size=40 name="fname" value="$people[0]{fname}" /> *</td></tr>@, 'old fname filled in correclty');
- like($result, qr@\Q<tr><td>Last Name:</td><td><input size=40 name="lname" value="$people[0]{lname}" /> *</td></tr>@, 'old lname filled in correclty');
- like($result, qr@\Q<tr><td>Phone:</td><td><input size=40 name="phone" value="$people[0]{phone}" /> *</td></tr>@, 'old phone filled in correclty');
- like($result, qr@\Q<tr><td>Company:</td><td><input size=40 name="company" value="" /></td></tr>@, 'old company filled in correclty');
+ like($result, qr@\Q<tr><td>First Name:</td><td><input size="40" name="fname" value="$people[0]{fname}" /> *</td></tr>@, 'old fname filled in correclty');
+ like($result, qr@\Q<tr><td>Last Name:</td><td><input size="40" name="lname" value="$people[0]{lname}" /> *</td></tr>@, 'old lname filled in correclty');
+ like($result, qr@\Q<tr><td>Phone:</td><td><input size="40" name="phone" value="$people[0]{phone}" /> *</td></tr>@, 'old phone filled in correclty');
+ like($result, qr@\Q<tr><td>Company:</td><td><input size="40" name="company" value="" /></td></tr>@, 'old company filled in correctly');
# $people[0]{company}
}
@@ -103,10 +103,10 @@
my $result = $webapp->run();
like($result, qr@Error@, 'Error');
like($result, qr@<h2>Change Personal Information</h2>@, 'personal_info page accessed');
- like($result, qr@\Q<tr><td>First Name:</td><td><input size=40 name="fname" value="" /> *</td></tr>@, 'old fname filled in correclty');
- like($result, qr@\Q<tr><td>Last Name:</td><td><input size=40 name="lname" value="" /> *</td></tr>@, 'old lname filled in correclty');
- like($result, qr@\Q<tr><td>Phone:</td><td><input size=40 name="phone" value="" /> *</td></tr>@, 'old phone filled in correclty');
- like($result, qr@\Q<tr><td>Company:</td><td><input size=40 name="company" value="" /></td></tr>@, 'old company filled in correclty');
+ like($result, qr@\Q<tr><td>First Name:</td><td><input size="40" name="fname" value="" /> *</td></tr>@, 'old fname filled in correclty');
+ like($result, qr@\Q<tr><td>Last Name:</td><td><input size="40" name="lname" value="" /> *</td></tr>@, 'old lname filled in correclty');
+ like($result, qr@\Q<tr><td>Phone:</td><td><input size="40" name="phone" value="" /> *</td></tr>@, 'old phone filled in correclty');
+ like($result, qr@\Q<tr><td>Company:</td><td><input size="40" name="company" value="" /></td></tr>@, 'old company filled in correclty');
}
{
local $ENV{REQUEST_URI} = '/personal_info.html';
@@ -117,10 +117,10 @@
my $result = $webapp->run();
like($result, qr@Error@, 'Error');
like($result, qr@<h2>Change Personal Information</h2>@, 'personal_info page accessed');
- like($result, qr@\Q<tr><td>First Name:</td><td><input size=40 name="fname" value="$people[3]{fname}" /> *</td></tr>@, 'old fname filled in correclty');
- like($result, qr@\Q<tr><td>Last Name:</td><td><input size=40 name="lname" value="$people[3]{lname}" /> *</td></tr>@, 'old lname filled in correclty');
- like($result, qr@\Q<tr><td>Phone:</td><td><input size=40 name="phone" value="" /> *</td></tr>@, 'old phone filled in correclty');
- like($result, qr@\Q<tr><td>Company:</td><td><input size=40 name="company" value="$people[3]{company}" /></td></tr>@, 'old company filled in correclty');
+ like($result, qr@\Q<tr><td>First Name:</td><td><input size="40" name="fname" value="$people[3]{fname}" /> *</td></tr>@, 'old fname filled in correclty');
+ like($result, qr@\Q<tr><td>Last Name:</td><td><input size="40" name="lname" value="$people[3]{lname}" /> *</td></tr>@, 'old lname filled in correclty');
+ like($result, qr@\Q<tr><td>Phone:</td><td><input size="40" name="phone" value="" /> *</td></tr>@, 'old phone filled in correclty');
+ like($result, qr@\Q<tr><td>Company:</td><td><input size="40" name="company" value="$people[3]{company}" /></td></tr>@, 'old company filled in correclty');
}
##### submitted data gets updated in the database
Modified: t/13-change-proposal.t
===================================================================
--- t/13-change-proposal.t 2003-11-27 06:46:42 UTC (rev 72)
+++ t/13-change-proposal.t 2003-11-27 06:54:59 UTC (rev 73)
@@ -63,7 +63,7 @@
$webapp->query($q);
my $result = $webapp->run();
like($result, qr@<h2>My Proposals</h2>@, 'proposals listed');
- like($result, qr@\Q<a href="edit_my_proposal.html?id=1">$talks[0]{subject}</a>@, '1st proposal listed');
+ like($result, qr@\Q<a href="./edit_my_proposal.html?id=1">$talks[0]{subject}</a>@, '1st proposal listed');
unlike($result, qr@\Q$talks[1]{subject}@, '2nd proposal NOT listed');
}
Generated at 10:06 on 27 Nov 2003 by mariachi 0.51