Changeset 361 for trunk/t/22_rss_modwiki.t

Timestamp:

06/07/04 21:39:35 (5 years ago)

Author:

kake

Message:

Test overhaul - no longer require database access info.

Files:

• trunk/t/22_rss_modwiki.t (modified) (1 diff)

trunk/t/22_rss_modwiki.t

@@ -1 +1 @@
 use strict;
-use CGI::Wiki::Formatter::UseMod;
-use CGI::Wiki::TestConfig::Utilities;
-use CGI::Wiki;
+use CGI::Wiki::Setup::SQLite;
 use Config::Tiny;
+use OpenGuides::RDF;
+use OpenGuides::Utils;
+use Test::More tests => 1;
 
-use Test::More tests =>
-  (1 + 2 * $CGI::Wiki::TestConfig::Utilities::num_stores);
+eval { require DBD::SQLite; };
+my $have_sqlite = $@ ? 0 : 1;
 
-use_ok( "OpenGuides::RDF" );
+SKIP: {
+    skip "DBD::SQLite not installed - no database to test with", 1
+      unless $have_sqlite;
 
-my %stores = CGI::Wiki::TestConfig::Utilities->stores;
+    CGI::Wiki::Setup::SQLite::setup( { dbname => "t/node.db" } );
+    my $config = Config::Tiny->new;
+    $config->{_} = {
+                     dbtype             => "sqlite",
+                     dbname             => "t/node.db",
+                     indexing_directory => "t/indexes",
+                     script_url         => "http://wiki.example.com/",
+                     script_name        => "mywiki.cgi",
+                     site_name          => "CGI::Wiki Test Site",
+                   };
 
-my ($store_name, $store);
-while ( ($store_name, $store) = each %stores ) {
-  SKIP: {
-      skip "$store_name storage backend not configured for testing", 2
-          unless $store;
+    my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
 
-      print "#\n##### TEST CONFIG: Store: $store_name\n#\n";
+    my $rdf_writer = OpenGuides::RDF->new( wiki   => $wiki,
+                                           config => $config );
 
-      my $wiki = CGI::Wiki->new(
-          store     => $store,
-          formatter => CGI::Wiki::Formatter::UseMod->new );
-      my $config = Config::Tiny->read( "t/21_wiki.conf" );
-      my $rdf_writer = OpenGuides::RDF->new( wiki   => $wiki,
-                                             config => $config );
-      isa_ok( $rdf_writer, "OpenGuides::RDF" );
-
-      my $rss = eval { $rdf_writer->make_recentchanges_rss; };
-      is( $@, "", "->make_recentchanges_rss doesn't croak" );
-
-#      print $rss;
-
-  } # end of SKIP
+    my $rss = eval { $rdf_writer->make_recentchanges_rss; };
+    is( $@, "", "->make_recentchanges_rss doesn't croak" );
 }