Changeset 342


Ignore:
Timestamp:
Aug 12, 2006, 10:01:35 AM (13 years ago)
Author:
Dominic Hargreaves
Message:

Update test suite to work with new Wiki::Toolkit properly

Location:
wiki-toolkit-plugin-diff/trunk
Files:
2 deleted
4 edited

Legend:

Unmodified
Added
Removed
  • wiki-toolkit-plugin-diff/trunk/Changes

    r287 r342  
    11Revision history for Perl extension Wiki::Toolkit::Plugin::Diff.
     2
     30.11  Sat Aug 12 20006
     4    - Migrate test suite to Wiki::Toolkit::TestLib
    25
    360.10  Tue May 16 2006
  • wiki-toolkit-plugin-diff/trunk/MANIFEST

    r286 r342  
    55META.yml
    66lib/Wiki/Toolkit/Plugin/Diff.pm
    7 t/00_setup.t
    8 t/01_add_test_data.t
    97t/02_diff.t
    108t/pod.t
  • wiki-toolkit-plugin-diff/trunk/lib/Wiki/Toolkit/Plugin/Diff.pm

    r287 r342  
    44use warnings;
    55
    6 our $VERSION = '0.10';
     6our $VERSION = '0.11';
    77
    88use base 'Wiki::Toolkit::Plugin';
  • wiki-toolkit-plugin-diff/trunk/t/02_diff.t

    r286 r342  
    11use strict;
    2 use Wiki::Toolkit;
    3 use Wiki::Toolkit::TestConfig::Utilities;
    4 use Test::More tests =>
    5   (1 + 17 * $Wiki::Toolkit::TestConfig::Utilities::num_stores);
     2use Wiki::Toolkit::TestLib;
     3use Test::More;
     4
     5my $iterator = Wiki::Toolkit::TestLib->new_wiki_maker;
     6plan tests => ( 1 + $iterator->number * 18 );
    67
    78use_ok( "Wiki::Toolkit::Plugin::Diff" );
    89
    9 my %stores = Wiki::Toolkit::TestConfig::Utilities->stores;
    10 
    11 my ($store_name, $store);
    12 while ( ($store_name, $store) = each %stores ) {
    13     SKIP: {
    14       skip "$store_name storage backend not configured for testing", 17
    15           unless $store;
    16 
    17       print "#\n##### TEST CONFIG: Store: $store_name\n#\n";
    18 
    19       my $wiki = Wiki::Toolkit->new( store => $store );
     10while ( my $wiki = $iterator->new_wiki ) {
     11      print "#\n##### TEST CONFIG: Store: " . (ref $wiki->store) . "\n";
     12
     13      # Add test data
     14      $wiki->write_node( "Jerusalem Tavern",
     15                         "Pub in Clerkenwell with St Peter's beer.",
     16                         undef,
     17                         { category => [ "Pubs" ]
     18                         }
     19                       );
     20
     21      my %j1 = $wiki->retrieve_node( "Jerusalem Tavern");
     22
     23      $wiki->write_node( "Jerusalem Tavern",
     24                         "Tiny pub in Clerkenwell with St Peter's beer.
     25Near Farringdon station",
     26                         $j1{checksum},
     27                         { category => [ "Pubs" ]
     28                         }
     29                       );
     30
     31      my %j2 = $wiki->retrieve_node( "Jerusalem Tavern");
     32
     33      $wiki->write_node( "Jerusalem Tavern",
     34                         "Tiny pub in Clerkenwell with St Peter's beer.
     35Near Farringdon station",
     36                         $j2{checksum},
     37                         { category => [ "Pubs", "Real Ale" ],
     38                           locale => [ "Farringdon" ]
     39                         }
     40                       );
     41
     42      my %j3 = $wiki->retrieve_node( "Jerusalem Tavern");
     43
     44      $wiki->write_node( "Jerusalem Tavern",
     45                         "Tiny pub in Clerkenwell with St Peter's beer but no food.
     46Near Farringdon station",
     47                         $j3{checksum},
     48                         { category => [ "Pubs", "Real Ale" ],
     49                           locale => [ "Farringdon" ]
     50                         }
     51                       );
     52     
     53      $wiki->write_node( "IvorW",
     54                         "
     55In real life:  Ivor Williams
     56
     57Ideas & things to work on:
     58
     59* Threaded discussion wiki
     60* Generify diff
     61* SuperSearch for Wiki::Toolkit
     62* Authentication module
     63* Autoindex generation
     64",
     65                         undef,
     66                         { username => 'Foo',
     67                           metatest => 'Moo' },
     68                        );
     69
     70      my %i1 = $wiki->retrieve_node( "IvorW");
     71
     72      $wiki->write_node( "IvorW",
     73                         $i1{content}."
     74[[IvorW's Test Page]]\n",
     75                         $i1{checksum},
     76                         { username => 'Bar',
     77                           metatest => 'Boo' },
     78                        );
     79                       
     80      my %i2 = $wiki->retrieve_node( "IvorW");
     81
     82      $wiki->write_node( "IvorW",
     83                         $i2{content}."
     84[[Another Test Page]]\n",
     85                         $i2{checksum},
     86                         { username => 'Bar',
     87                           metatest => 'Quack' },
     88                        );
     89
     90      my %i3 = $wiki->retrieve_node( "IvorW");
     91      my $newcont = $i3{content};
     92      $newcont =~ s/\n/ \n/s;
     93      $wiki->write_node( "IvorW",
     94                         $newcont,
     95                         $i3{checksum},
     96                         { username => 'Bar',
     97                           metatest => 'Quack' },
     98                        );
     99
     100      $wiki->write_node( "Test",
     101                         "a",
     102                         undef,
     103                         { },
     104                        );
     105
     106      %i3 = $wiki->retrieve_node( "Test");
     107     
     108      $wiki->write_node( "Test",
     109                         "a\n",
     110                         $i3{checksum},
     111                         { },
     112                        );
     113
     114      pass "backend primed with test data";
     115
     116      # Real tests
    20117      my $differ = eval { Wiki::Toolkit::Plugin::Diff->new; };
    21118      is( $@, "", "'new' doesn't croak" );
     
    142239        is( $@, "", "differences doesn't die when only difference is a newline");
    143240    } # end of TODO
    144     } # end of SKIP
    145241}
Note: See TracChangeset for help on using the changeset viewer.