From 052d24c96bffee5425b4629fafcdd1180d6190d4 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Sat, 18 Mar 2006 19:54:07 +0000 Subject: [PATCH] New tests for indented [new] tags and id tags on headers instead of links within headers. --- test.pl | 59 ++++++++++++++++++++++++++++++++++----------------------- 1 file changed, 35 insertions(+), 24 deletions(-) diff --git a/test.pl b/test.pl index 35652b73..8749014c 100755 --- a/test.pl +++ b/test.pl @@ -2311,7 +2311,7 @@ InitVariables(); %Test = split('\n',<<'EOT'); == make honey ==\n\nMoo.\n -

make honey

Moo.

+

make honey

Moo.

EOT run_tests(); @@ -2324,10 +2324,10 @@ test_page(update_page('toc', "bla\n" . "==two==\n" . "mu."), quotemeta('
  1. one
    1. two
    2. two
'), - quotemeta('

one

'), - quotemeta('

two

'), + quotemeta('

one

'), + quotemeta('

two

'), quotemeta('bla

Contents

one

'),); test_page(update_page('toc', "bla\n" . "==two=\n" @@ -2336,8 +2336,8 @@ test_page(update_page('toc', "bla\n" . "bla\n" . "==two==\n"), quotemeta('
  1. two
    1. three
  2. two
'), - quotemeta('

two

'), - quotemeta('

three

')); + quotemeta('

two

'), + quotemeta('

three

')); test_page(update_page('toc', "bla\n" . "\n" @@ -2348,8 +2348,8 @@ test_page(update_page('toc', "bla\n" . "bla\n" . "=one=\n"), quotemeta('
  1. two
    1. three
  2. one
'), - quotemeta('

two

'), - quotemeta('

one

'), + quotemeta('

two

'), + quotemeta('

one

'), quotemeta('bla

Contents

murks'),); @@ -2402,8 +2402,8 @@ update_page('headers', "== one ==\ntext\n== two ==\ntext\n== three ==\ntext\n"); test_page(get_page('headers'), '

  • one
    • ', '
  • two
    • ', - '

    one

    ', - '

    two

    ', ); + '

    one

    ', + '

    two

    ', ); remove_rule(\&TocRule); # headers only @@ -2421,31 +2421,31 @@ add_module('portrait-support.pl'); # nothing update_page('headers', "[new]foo\n== no header ==\n\ntext\n"); -test_page(get_page('headers'), '

    foo == no header ==

    text

    '); +test_page(get_page('headers'), '

    foo == no header ==

    text

    '); # usemod only add_module('usemod.pl'); update_page('headers', "[new]foo\n== is header ==\n\ntext\n"); -test_page(get_page('headers'), '

    foo

    is header

    '); +test_page(get_page('headers'), '

    foo

    is header

    '); remove_rule(\&UsemodRule); # toc only add_module('toc.pl'); update_page('headers', "[new]foo\n== one ==\ntext\n== two ==\ntext\n== three ==\ntext\n"); test_page(get_page('headers'), - '

    foo

    ', # default to before the header + '

    foo

    ', # default to before the header '

    Contents

      ', '
    1. one
      2. ', '
    2. two
      3. ', '
    3. three
    ', - '

    one

    text

    ', - '

    two

    ', ); + '

    one

    text

    ', + '

    two

    ', ); remove_rule(\&TocRule); # headers only add_module('headers.pl'); update_page('headers', "[new]foo\nis header\n=========\n\ntext\n"); -test_page(get_page('headers'), '

    foo

    is header

    '); +test_page(get_page('headers'), '

    foo

    is header

    '); remove_rule(\&HeadersRule); # portrait-support, toc, and usemod @@ -2456,9 +2456,20 @@ update_page('headers', "[new]foo\n== one ==\ntext\n== two ==\ntext\n== three ==\ test_page(get_page('headers'), '
  • one
    • ', '
  • two
    • ', - '

    foo

    ', - '

    one

    ', - '

    two

    ', ); + '

    foo

    ', + '

    one

    ', + '

    two

    ', ); + +%Test = split('\n',<<'EOT'); +[new]\nfoo +

    foo

    +:[new]\nfoo +

    foo

    +::[new]\nfoo +

    foo

    +EOT + +run_tests(); remove_rule(\&UsemodRule); remove_rule(\&TocRule); @@ -2504,7 +2515,7 @@ add_module('portrait-support.pl'); # just portrait-support update_page('hr', "[new]one\n----\ntwo\n"); -test_page(get_page('hr'), '

    one

    two

    '); +test_page(get_page('hr'), '

    one

    two

    '); # usemod and portrait-support add_module('usemod.pl'); @@ -2732,8 +2743,8 @@ test_page(update_page('toc', "bla\n" . "bla\n" . "=one=\n"), quotemeta('
    1. two
      1. three
    2. one
    '), - quotemeta('

    two

    '), - quotemeta('

    one

    '), + quotemeta('

    two

    '), + quotemeta('

    one

    '), quotemeta('bla

    Contents

    murks')); @@ -2801,12 +2812,12 @@ xpath_test(get_page('action=rc days=1 showedit=1'), update_page('LocalNamesTest', 'This is an [http://www.example.org/ Example] for [http://www.emacswiki.org EmacsWiki].'); xpath_test(get_page('action=rc days=1 showedit=1'), - '//a[@class="local"][text()="LocalNames"]/following-sibling::strong[text()="Local names defined on LocalNamesTest: Example, and EmacsWiki"]'); + '//a[@class="local"][text()="LocalNames"]/following-sibling::strong[text()="Local names defined on LocalNamesTest: EmacsWiki, and Example"]'); update_page('LocalNamesTest', 'This is an [http://www.example.com/ Example] for [http://www.emacswiki.org/ EmacsWiki] and [http://communitywiki.org/ Community Wiki].'); xpath_test(get_page('action=rc days=1 showedit=1'), - '//a[@class="local"][text()="LocalNames"]/following-sibling::strong[text()="Local names defined on LocalNamesTest: Example, EmacsWiki, and Community Wiki"]'); + '//a[@class="local"][text()="LocalNames"]/following-sibling::strong[text()="Local names defined on LocalNamesTest: Community Wiki, EmacsWiki, and Example"]'); update_page('LocalNamesTest', 'This is [http://www.example.com/ one Example].'); xpath_test(get_page('LocalNames'),