fix a few test file module names that were missed

diff --git a/t/050-local/030-tags.t b/t/050-local/030-tags.t
index d9fee1f..09f5dbf 100644 (file)
--- a/t/050-local/030-tags.t
+++ b/t/050-local/030-tags.t
@@ -78,7 +78,7 @@ for my $title ("A" .. "Z") {
 }
 
 {
-  my $tag_info = Products->collection_with_tags
+  my $tag_info = BSE::TB::Products->collection_with_tags
     (
      "all_visible_products",
      [ "iPod: Nano" ],

diff --git a/t/060-generate/010-generate.t b/t/060-generate/010-generate.t
index d54923c..37c3a34 100644 (file)
--- a/t/060-generate/010-generate.t
+++ b/t/060-generate/010-generate.t
@@ -115,7 +115,7 @@ BSE::Admin::StepParents->add($parent, $parent);
 is($parent->section->{id}, $parent->{id}, "parent should be it's own section");
 is($kids[0]->section->{id}, $parent->{id}, "kids section should be the parent");
 
-my $top = Articles->getByPkey(1);
+my $top = BSE::TB::Articles->getByPkey(1);
 ok($top, "grabbing Home page");
 
 template_test "cfg", $top, <<TEMPLATE, <<EXPECTED;
@@ -594,7 +594,7 @@ Category: Two
 
 EXPECTED
 
-my $cat = Articles->tag_category("Foo:");
+my $cat = BSE::TB::Articles->tag_category("Foo:");
 my @old_deps = $cat->deps;
 my $error;
 $cat->set_deps([ "Bar:" ], \$error);
@@ -768,7 +768,7 @@ sub template_test($$$$) {
     skip "$tag: couldn't make generator", 1 unless $gen;
     eval {
       $content =
-       $gen->generate_low($template, $article, 'Articles', 0);
+       $gen->generate_low($template, $article, 'BSE::TB::Articles', 0);
     };
     ok(defined $content, "$tag: generate content");
     diag $@ unless $content;
@@ -818,7 +818,7 @@ sub dyn_template_test($$$$) {
 sub _generate_dyn_template {
   my ($article, $template) = @_;
 
-  my $articles = 'Articles';
+  my $articles = 'BSE::TB::Articles';
   my $genname = $article->{generator};
   eval "use $genname";
   $@ && die $@;

diff --git a/t/060-generate/020-catalog.t b/t/060-generate/020-catalog.t
index b4cd054..ed56fbc 100644 (file)
--- a/t/060-generate/020-catalog.t
+++ b/t/060-generate/020-catalog.t
@@ -330,7 +330,7 @@ sub template_test($$$$) {
     skip "$tag: couldn't make generator", 1 unless $gen;
     eval {
       $content =
-       $gen->generate_low($template, $article, 'Articles', 0);
+       $gen->generate_low($template, $article, 'BSE::TB::Articles', 0);
     };
     ok($content, "$tag: generate content");
     diag $@ unless $content;

diff --git a/t/080-remote/010-save.t b/t/080-remote/010-save.t
index b658939..b84d3ff 100644 (file)
--- a/t/080-remote/010-save.t
+++ b/t/080-remote/010-save.t
@@ -4,10 +4,10 @@ use BSE::Test qw(make_ua base_url);
 use JSON;
 use DevHelp::HTML;
 use Test::More;
-use Article;
+use BSE::TB::Article;
 use Time::HiRes qw(time sleep);
 
-my @cols = Article->columns;
+my @cols = BSE::TB::Article->columns;
 
 my $base = 130;
 

diff --git a/t/080-remote/020-cat.t b/t/080-remote/020-cat.t
index 76acac4..aa00082 100644 (file)
--- a/t/080-remote/020-cat.t
+++ b/t/080-remote/020-cat.t
@@ -21,7 +21,7 @@ my $cat = do_add($add_url,
                  type => "Catalog",
                 }, "make test catalog");
 
-is($cat->{generator}, "Generate::Catalog", "make sure it's a catalog");
+is($cat->{generator}, "BSE::Generate::Catalog", "make sure it's a catalog");
 
 # and an article
 my $art = do_add($add_url, 
@@ -30,7 +30,7 @@ my $art = do_add($add_url,
                  title => "Test article",
                 }, "make test article");
 
-is($art->{generator}, "Generate::Article", "make sure it's an article");
+is($art->{generator}, "BSE::Generate::Article", "make sure it's an article");
 
 my $prod;
 {
@@ -42,7 +42,7 @@ my $prod;
       parentid => $cat->{id},
       title => "Some Product",
      }, "make test product");
-  is($result->{generator}, "Generate::Product",
+  is($result->{generator}, "BSE::Generate::Product",
      "check generator");
   $prod = $result;
 }

diff --git a/t/130-importer/020-article.t b/t/130-importer/020-article.t
index 470e0b1..641e20e 100644 (file)
--- a/t/130-importer/020-article.t
+++ b/t/130-importer/020-article.t
@@ -134,7 +134,7 @@ EOS
     close $fh;
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "simpleupdate$when", callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
     like($testb->body, qr/This is the body/, "check the body is updated");
     my @images = $testb->images;
     is(@images, 1, "have an image");
@@ -158,7 +158,7 @@ EOS
     close $fh;
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "completefile$when", callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
 
     my ($file) = grep $_->name eq "test", $testb->files;
     ok($file, "found the file with name 'test'")
@@ -184,7 +184,7 @@ EOS
     close $fh;
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "updatefile$when", callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
 
     my ($file) = grep $_->name eq "test", $testb->files;
     ok($file, "found the updated file with name 'test'")
@@ -211,7 +211,7 @@ EOS
     close $fh;
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "updatefileb$when", callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
 
     my ($file) = grep $_->name eq "test", $testb->files;
     ok($file, "found the updated file with name 'test'")
@@ -251,7 +251,7 @@ EOS
     close $fh;
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "alias$when", callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
     is($testb->linkAlias, "alias-${when}_more", "check alias set correctly");
   }
 

diff --git a/t/130-importer/030-product.t b/t/130-importer/030-product.t
index 5c61b85..16b250a 100644 (file)
--- a/t/130-importer/030-product.t
+++ b/t/130-importer/030-product.t
@@ -95,7 +95,7 @@ EOS
     my $imp = BSE::Importer->new(cfg => $cfg, profile => "simpleupdate$when",
                                 callback => sub { note @_ });
     $imp->process($filename);
-    my $testb = Articles->getByPkey($testa->id);
+    my $testb = BSE::TB::Articles->getByPkey($testa->id);
     like($testb->body, qr/This is the body/, "check the body is updated");
   }
 

diff --git a/t/t000load.t b/t/t000load.t
index 8827c99..d1ee973 100644 (file)
--- a/t/t000load.t
+++ b/t/t000load.t
@@ -16,12 +16,12 @@ use_ok("BSE::TB::TagCategory");
 use_ok("BSE::TB::TagCategories");
 use_ok("BSE::TB::TagOwner");
 use_ok("BSE::TB::TagOwners");
-use_ok("Article");
-use_ok("Articles");
-use_ok('Generate');
-use_ok('Generate::Article');
-use_ok('Generate::Product');
-use_ok('Generate::Catalog');
+use_ok("BSE::TB::Article");
+use_ok("BSE::TB::Articles");
+use_ok('BSE::Generate');
+use_ok('BSE::Generate::Article');
+use_ok('BSE::Generate::Product');
+use_ok('BSE::Generate::Catalog');
 use_ok('BSE::Edit::Article');
 use_ok('BSE::Edit::Site');
 use_ok('BSE::Edit::Catalog');