various fixes, test code changes
authorTony Cook <tony@develop-help.com>
Wed, 13 Feb 2002 00:18:10 +0000 (00:18 +0000)
committertony <tony@45cb6cf1-00bc-42d2-bb5a-07f51df49f94>
Wed, 13 Feb 2002 00:18:10 +0000 (00:18 +0000)
.cvsignore
Makefile
site/cgi-bin/search.pl
site/cgi-bin/shop.pl
site/docs/TODO.pod
site/docs/bse.pod
t/t00smoke.t
test.cfg.base [new file with mode: 0644]

index e225142..9908571 100644 (file)
@@ -1,2 +1,3 @@
 INSTALL.html
 INSTALL.txt
+test.cfg
index ef95f76..15eaf54 100755 (executable)
--- a/Makefile
+++ b/Makefile
@@ -68,4 +68,5 @@ testfiles: distdir
        perl localinst.perl $(DISTBUILD) leavedb
        perl -MExtUtils::Command -e rm_rf $(DISTBUILD)
 
-
+test: testinst
+       perl -MTest::Harness=runtests -It -e 'runtests glob q!t/*.t!'
index 1a4aab8..d60c03c 100755 (executable)
@@ -213,7 +213,7 @@ sub getSearchResult {
       if ($section) {
        # only for the section requested
        my @sections = split ' ', $row->[2];
-       my @keep = grep { $sections[$_] == $section } 0..$#sections;
+       my @keep = grep { $sections[$_] == $section && $ids[$_] } 0..$#sections;
        @ids = @ids[@keep];
        @scores = @scores[@keep];
       }
index 6f54fea..d4500cb 100755 (executable)
@@ -768,7 +768,7 @@ sub send_order {
     );
   my $templ = Squirrel::Template->new;
 
-  my $mailer = BSE::Mail->new;
+  my $mailer = BSE::Mail->new(cfg=>$cfg);
   # ok, send some email
   my $confirm = $templ->show_page($TMPLDIR, 'mailconfirm.tmpl', \%acts);
   if ($SHOP_EMAIL_ORDER) {
index 202c5a6..a5dd1e1 100644 (file)
@@ -120,6 +120,18 @@ more formatting options)
 
 a central image repository, so images can be shared between articles
 
+=item *
+
+table editor
+
+=item *
+
+change makeIndex.pl to avoid overflowing the fields
+
+=item *
+
+add a test suite
+
 =back
 
 =cut
index 1f7d128..54b85f4 100644 (file)
@@ -10,6 +10,25 @@ Maybe I'll add some other bits here.
 
 =head1 CHANGES
 
+=head2 0.11_09
+
+=over
+
+=item *
+
+updated user/* templates from Adrian
+
+=item *
+
+checkout code for the shop didn't pass in the config object to the
+mail class
+
+=item *
+
+work around a bug in the search index builder
+
+=back
+
 =head2 0.11_08
 
 This is a test release.
index bfed4da..0277d55 100644 (file)
@@ -2,7 +2,8 @@
 use strict;
 use BSE::Test;
 
-print "1..10\n";
+++$|;
+print "1..27\n";
 my $baseurl = base_url;
 ok($baseurl =~ /^http:/, "basic check of base url");
 my $ua = make_ua;
@@ -26,4 +27,6 @@ fetch_ok($ua, "failed search", "$baseurl/cgi-bin/search.pl?q=blargle",
         "No\\s+documents\\s+were\\s+found");
 fetch_ok($ua, "good search", "$baseurl/cgi-bin/search.pl?q=title",
         qr!My\s+site's\s+title.*\[formatting\s+guide!s);
+fetch_ok($ua, "user logon page", "$baseurl/cgi-bin/user.pl",
+        qr!User\s+Logon!s);
 
diff --git a/test.cfg.base b/test.cfg.base
new file mode 100644 (file)
index 0000000..0090bb2
--- /dev/null
@@ -0,0 +1 @@
+base_url = http://bsetest.develop-help.com