0.11_09 commit
[bse.git] / t / t00smoke.t
CommitLineData
b051120f
TC
1#!perl -w
2use strict;
3use BSE::Test;
4
41fd1a57
TC
5++$|;
6print "1..27\n";
b051120f
TC
7my $baseurl = base_url;
8ok($baseurl =~ /^http:/, "basic check of base url");
9my $ua = make_ua;
3bc94f98 10fetch_ok($ua, "admin menu - check the site exists at all", "$baseurl/admin/", "Admin");
b051120f
TC
11fetch_ok($ua, "generate all", "$baseurl/cgi-bin/admin/generate.pl",
12 "html", "Refresh: 0; .*/admin/");
13fetch_ok($ua, "generate all verbose",
14 "$baseurl/cgi-bin/admin/generate.pl?progress=1",
15 "Regenerating your site.*Return to admin menu");
16fetch_ok($ua, "index", "$baseurl/", "Home");
17fetch_ok($ua, "shop", "$baseurl/shop/", "The Shop - Catalogue Items");
18fetch_ok($ua, "shop cart", "$baseurl/cgi-bin/shop.pl",
19 "Shopping Cart Items");
20fetch_ok($ua, "shop cart checkout no items", "$baseurl/cgi-bin/shop.pl",
21 "Shopping Cart Items");
22fetch_ok($ua, "build search index", "$baseurl/cgi-bin/admin/makeIndex.pl",
23 "html", "Refresh: 0; .*/admin/");
24fetch_ok($ua, "advanced search form", "$baseurl/cgi-bin/search.pl",
25 "All\\s+lower\\s+case");
26fetch_ok($ua, "failed search", "$baseurl/cgi-bin/search.pl?q=blargle",
27 "No\\s+documents\\s+were\\s+found");
28fetch_ok($ua, "good search", "$baseurl/cgi-bin/search.pl?q=title",
29 qr!My\s+site's\s+title.*\[formatting\s+guide!s);
41fd1a57
TC
30fetch_ok($ua, "user logon page", "$baseurl/cgi-bin/user.pl",
31 qr!User\s+Logon!s);
b051120f 32