Ignore:
Timestamp:
Mar 20, 2007, 4:47:05 PM (15 years ago)
Author:
Earle Martin
Message:

Complete transition to using skip_all (remove old SKIP blocks).
More verbose reporting for error "require"ing DBD::SQLite.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/t/61_bug_textareas.t

    r949 r956  
    77eval { require DBD::SQLite; };
    88
    9 if ($@) {
    10     plan skip_all => "DBD::SQLite not installed - no database to test with";
    11 } else {
    12     plan tests => 1;
     9if ( $@ ) {
     10    my ($error) = $@ =~ /^(.*?)\n/;
     11    plan skip_all => "DBD::SQLite could not be used - no database to test with ($error)";
    1312}
    1413
    15 SKIP: {
    16     Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
    17     my $config = OpenGuides::Test->make_basic_config;
    18     my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
     14plan tests => 1;
    1915
    20     my $out = OpenGuides::Template->output(
    21         wiki     => $wiki,
    22         config   => $config,
    23         template => "edit_form.tt",
    24         vars     => {
    25                       locales  => [
    26                                     { name => "Barville" },
    27                                     { name => "Fooville" },
    28                                   ],
    29                     },
    30     );
     16Wiki::Toolkit::Setup::SQLite::setup( { dbname => "t/node.db" } );
     17my $config = OpenGuides::Test->make_basic_config;
     18my $wiki = OpenGuides::Utils->make_wiki_object( config => $config );
    3119
    32     like( $out, qr/Barville\nFooville/,
    33          "locales properly separated in textarea" );
    34 }
     20my $out = OpenGuides::Template->output(
     21    wiki     => $wiki,
     22    config   => $config,
     23    template => "edit_form.tt",
     24    vars     => {
     25                  locales  => [
     26                                { name => "Barville" },
     27                                { name => "Fooville" },
     28                              ],
     29                },
     30);
    3531
    36 
     32like( $out, qr/Barville\nFooville/,
     33     "locales properly separated in textarea" );
Note: See TracChangeset for help on using the changeset viewer.