docgenerator 1.0.4 → 1.1.1

data/unittest/unittest_creole2doc.rb

@@ -0,0 +1,1024 @@
+require 'test_docgenerator.rb'
+Dir.chdir('../lib/creole/'){
+  require 'creole2doc.rb'
+}
+#~ require 'creole/creole2doc.rb'
+
+<<missingtests
+see Text and
+description
+labels
+
+amazon/affiliate -> privat
+
+<<ruby>>
+
+erweitern:
+*tabulars 
+*Creole_creoletab
+*csv-tabs
+
+*picture: zus. optionen (css...)
+
+Creole_document
+missingtests
+
+class Creole
+  #Access to the options.
+  attr_reader :options
+end
+
+require 'yaml'
+require 'log4r'
+#
+#Warn -> report missing important test
+#Info -> report missing test
+
+$log = Log4r::Logger.new('Unittest creole', Log4r::ERROR)
+#~ $log = Log4r::Logger.new('Unittest creole', Log4r::WARN)
+#~ $log = Log4r::Logger.new('Unittest creole', Log4r::INFO)
+$log.outputters = Log4r::StdoutOutputter.new('log_stdout')
+
+#Logger to catch unwanted messages
+$tmplog = Log4r::Logger.new('Creole', Log4r::FATAL)
+
+class Test_creole_basics < Test::Unit::TestCase
+  #Test some basic definitions.
+  def test_creole_initialize()
+    creole = Creole.new(
+      :content => 'test'
+    )
+    assert_instance_of( Log4r::Logger, creole.log)
+    assert_equal( Log4r::INFO, creole.log.level, "Default Level of Default-Logger (creole.log) changed:")
+    assert_instance_of( Log4r::StdoutOutputter, creole.log.outputters.first)
+    #~ assert_equal( Log4r::DEBUG, creole.log.outputters.first.level)
+    assert_equal( creole.options[:wrap_at], 75 )
+  end
+  # Get some content and check the content.
+  def test_creole_input_string()
+    source = <<creole
+Text,
+more Text.
+And some more text.
+
+A new paragraph.
+creole
+    creole = Creole.new(:content => source )
+    assert_equal( [source], creole.source)
+    assert_equal_filecontent( "expected_creole/test_creole_input.normsource", creole.normsource.to_yaml)
+
+    creole = Creole.new(:content => source )
+    creole = Creole.new()
+    creole << source 
+    creole << source 
+    assert_equal( [source, source], creole.source)
+  end
+  #
+  #Check for open File-handles
+  def test_creole_input_file()
+    creole1 = Creole.new(  :content => File.readlines('creole1.0test.txt').to_s )
+    creole2 = nil
+    File.open('creole1.0test.txt'){|filehandle|
+      creole2 = Creole.new(  :content => filehandle )
+    }
+    assert_equal( creole1.source, creole2.source)
+  end
+  #
+  #Test for filehandle, if the file is a Rubyscript (Take only parts after __END__)
+  def test_creole_input_file_rb()
+    creole1 = Creole.new( :name => 'input_file_rb/DATA', :content => DATA )
+    creole2 = nil
+    File.open(__FILE__){|filehandle|
+      #~ $log.warn('Test Filehandle auf ruby nicht m�glich (Test $0 == input.path)')
+      #Modify $0 temporary to allow test with condition $0 == input.path
+      $0 = "xxxx#{__FILE__}"
+      creole2 = Creole.new( :name => 'input_file_rb', :content => filehandle, :log => $tmplog )
+      $0 = __FILE__
+    }
+    assert_equal( creole1.source, creole2.source)
+  end  
+  #
+  #This testcases are taken from http://www.wikicreole.org/wiki/Creole1.0TestCases
+  def test_creole_creole1_0test()
+    $log.info('Testcases uncomplete creole1.0test.txt')
+    creole = Creole.new(  
+                                  :name => 'creole_creole1_0test',
+                                  :content => File.readlines('creole1.0test.txt').to_s,
+                                  :log => $tmplog #catch warning for [[links]]
+                                )
+    assert_equal_filecontent( "expected_creole/test_creole_creole1.0test.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_creole1.0test.latex", creole.to_doc(:latex))
+    $log.info('test_creole_creole1_0test: uncomplete to_creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_creole1.0test.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_creole1.0test.text", creole.to_doc(:text))
+  end  
+end #Test_creole_basics 
+
+class Test_creole_paragraphs < Test::Unit::TestCase
+
+  def test_creole_paragraphs()
+    source = <<creole
+This is some text,
+followed by more Text.
+And some more text.
+
+And now a new paragraph with some other text.
+
+creole
+    creole = Creole.new(:content => source )
+    assert_equal( [source], creole.source)
+    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs.wiki", creole.to_doc(:wiki))
+    $log.info('test_creole_paragraphs: uncomplete to_creole')    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs.text", creole.to_doc(:text))
+
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs.normsource", creole.normsource.to_yaml)
+  end
+  def test_creole_paragraphs_wrap()
+    creole = Creole.new(:content => <<creole
+And now a line which is a bit longer then 80 characters in the input line. Creole should split it at position 75 or a bit later (depending on the word length at position 75).
+creole
+    )
+    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap.wiki", creole.to_doc(:wiki))
+    $log.info('test_creole_paragraphs_wrap: uncomplete to_creole')    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap.text", creole.to_doc(:text))
+  end #test_creole_paragraphs_wrap()
+  def test_creole_paragraphs_wrap60()
+
+    creole = Creole.new(:wrap_at => 60, :content => <<creole
+And now a line which is a bit longer then 80 characters in the input line. Creole should split it at position 60 or a bit later (depending on the word length at position 60).
+creole
+    )
+    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap60.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap60.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap60.wiki", creole.to_doc(:wiki))
+    $log.info('test_creole_paragraphs_wrap: uncomplete to_creole')    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap60.text", creole.to_doc(:text))
+  end #test_creole_paragraphs_wrap60()
+
+  def test_creole_paragraphs_wrap0()
+
+    creole = Creole.new(:wrap_at => 0, :content => <<creole
+And now a line which is a bit longer then 80 characters in the input line. Creole should not split it, because we defined split_at to 0.
+
+And now a line which is a bit longer then 80 characters in the input line. 
+Creole should not split it, because we defined split_at to 0.
+creole
+    )
+    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap0.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap0.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap0.wiki", creole.to_doc(:wiki))
+    $log.info('test_creole_paragraphs_wrap: uncomplete to_creole')    
+    assert_equal_filecontent( "expected_creole/test_creole_paragraphs_wrap0.text", creole.to_doc(:text))
+  end
+end #Test_creole_paragraphs < Test::Unit::TestCase
+
+class Test_creole_headings < Test::Unit::TestCase
+  
+  def test_creole_headings()
+    creole = Creole.new(:content =>  <<creole
+= Top-level heading (1)
+== This a test for creole 0.1 (2)
+=== This is a Subheading (3)
+==== Subsub (4)
+===== Subsubsub (5)
+
+The ending equal signs should not be displayed:
+
+= Top-level heading (1) =
+== This a test for creole 0.1 (2) ==
+=== This is a Subheading (3) ===
+==== Subsub (4) ====
+===== Subsubsub (5) =====
+
+
+= **not** //parsed// =
+The content is not parsed.
+creole
+    )
+
+    assert_equal_filecontent( "expected_creole/test_creole_headings.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_headings.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_headings.wiki", creole.to_doc(:wiki))
+    $log.info('test_creole_paragraphs: uncomplete to_creole')    
+    assert_equal_filecontent( "expected_creole/test_creole_headings.text", creole.to_doc(:text))
+  end #test_creole_headings
+  #
+  #Modification of standard: Labels for headings.
+  #
+  #Including the definition of a label tor the toc.
+  def test_creole_label()
+    creole = Creole.new(:content => <<creole
+==Titel 1==
+Text
+===Titel 2===
+Text unter Titel 2
+===[2b]Titel 2b===
+Text unter Titel 2b.
+creole
+    )
+    #Check the manual label
+    assert_equal_filecontent( "expected_creole/test_creole_label.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_label.latex", creole.to_doc(:latex))
+    $log.info('test_creole_label: uncomplete text/to_creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_label.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_label.text", creole.to_doc(:text))
+
+  end
+end #Test_creole_headings < Test::Unit::TestCase
+
+class Test_creole_toc < Test::Unit::TestCase
+    def test_creole_toc()
+    creole = Creole.new(
+                    :name => 'toc',
+                    :content => <<creole
+=one
+=two
+==two-one
+=[drei]three
+==three-one
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_toc.html",         creole.toc.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_toc_text.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_toc.latex",        creole.toc.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_toc_text.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_toc: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_toc.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_toc.text", creole.toc.to_doc(:text))
+  end #test_creole_toc
+end   #Test_creole_toc
+
+class Test_creole_paragraph2 < Test::Unit::TestCase
+  def test_creole_newline()
+    creole = Creole.new(
+                    :name => 'newline',
+                    :content => <<'creole'
+You can format an address by simply forcing linebreaks:
+
+My contact dates:\\
+Pone: xyz\\
+Fax: +45\\
+Mobile: abc
+
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_newline.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_newline.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_newline: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_newline.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_newline.text", creole.to_doc(:text))
+  end #test_creole_newline
+  def test_creole_hr()
+    creole = Creole.new(
+                    :name => 'hr',
+                    :content => <<creole
+
+You can use this to draw a line to separate the page:
+----
+This is after the horizontal line
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_hr.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_hr.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_hr: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_hr.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_hr.text", creole.to_doc(:text))
+  end #test_creole_hr
+  
+end   #Test_creole_paragraph2
+
+
+class Test_creole_inline < Test::Unit::TestCase
+  
+  def test_creole_inline_bold_em()
+    creole = Creole.new(:content => <<creole
+You can make things **bold** or //italic// or **//both//** or //**both**//.
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_inline.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_inline.latex", creole.to_doc(:latex))
+    $log.info('test_creole_inline_bold_em: inline to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_inline.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_inline_bold_em: inline text with additional spaces')
+    assert_equal_filecontent( "expected_creole/test_creole_inline.text", creole.to_doc(:text))
+  end
+  
+  def test_creole_inline_bold_line_break()
+    creole = Creole.new(:content => <<creole
+Character formatting extends across line breaks: **bold,
+this is still bold. This line deliberately does not end in star-star.
+
+Not bold. Character formatting does not cross paragraph boundaries.
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_line_break.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_line_break.latex", creole.to_doc(:latex))
+    $log.info('test_creole_inline_bold_line_break: inline to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_line_break.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_line_break.text", creole.to_doc(:text))
+  end  
+
+end #Test_creole_inline
+
+
+class Test_creole_lists < Test::Unit::TestCase
+  def test_creole_list_ul()
+    creole = Creole.new(:content => <<creole
+Text before
+*Listentry 1
+*Listentry 2
+**Listentry 2.1
+**Listentry 2.2
+*Listentry 3
+**Listentry 3.2
+
+
+* You can have
+multiline list items
+* this is a second multiline
+list item
+
+Text afterwords
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_list_ul.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ul.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_list_ul: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ul.creole", creole.to_doc(:creole))    
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ul.wiki", creole.to_doc(:wiki))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ul.text", creole.to_doc(:text))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ul.normsource", creole.normsource.to_yaml)
+  end
+  #It works fine here, but LaTeX will give you an error.
+ def test_creole_list_ul_too_much()
+    creole = Creole.new(:content => <<creole
+Text before
+*Listentry 1
+*Listentry 2
+**Listentry 2.1
+**Listentry 2.2
+***Listentry 2.2.1
+****Listentry 2.2.1.1
+*****Listentry 2.2.1.1.1
+*Listentry 3
+
+Text afterwords
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_list_ul_too_much.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ul_too_much.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_list_ul_too_much: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ul_too_much.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ul_too_much.text", creole.to_doc(:text))
+  end  
+  def test_creole_list_ol()
+    creole = Creole.new(:content => <<creole
+Text before
+#Listentry 1
+#Listentry 2
+##Listentry 2.1
+##Listentry 2.2
+#Listentry 3
+Text afterwords
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_list_ol: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol.text", creole.to_doc(:text))
+  end  #ol
+
+  def test_creole_list_ol_ul()
+    creole = Creole.new(:content => <<creole
+Text before
+#Listentry 1
+#Listentry 2
+#*Listentry 2.1
+#*Listentry 2.2
+#Listentry 3
+
+Text afterwords
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol_ul.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol_ul.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_list_ol_ul: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol_ul.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol_ul.text", creole.to_doc(:text))
+  end  
+
+  def test_creole_list_ol_after_ul()
+    creole = Creole.new(:content => <<creole
+Text before
+*Listentry 1
+#Listentry 2
+
+Text afterwords
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol_after_ul.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_list_ol_after_ul.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_list_ol_after_ul: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol_after_ul.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_list_ol_after_ul.text", creole.to_doc(:text))
+  end  
+
+  #Line breaks will be lost.
+  def test_creole_ul_multiple_line()
+    $log.warn('test_creole_ul_multiple_line: latex: grosse textl�cken (wrap mit leerzeichen bereinigen?)')
+    creole = Creole.new(:content => <<creole
+*	vorher
+*	text
+	mehr text zum item
+*	nachher und vorher
+*	text
+	mehr text zum item
+*	nachher
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_ul_multiple_line.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_ul_multiple_line.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_ul_multiple_line: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_ul_multiple_line.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_ul_multiple_line.text", creole.to_doc(:text)) #fixme
+  end
+  def test_creole_ul_with_bold()
+    creole = Creole.new(:content => <<creole
+You can use lists, start it at the first column for now, please...
+
+unnumbered lists are like
+* item a
+* item b
+* **bold item c**
+Text
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_ul_with_bold.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_ul_with_bold.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_ul_with_bold: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_ul_with_bold.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_ul_with_bold.text", creole.to_doc(:text))
+  end
+  def test_creole_ul_with_blank()
+    creole = Creole.new(:content => <<creole
+blank space is also permitted before lists like:
+  *   item a
+ * item b
+* item c
+ ** item c.a
+Text
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_ul_with_blank.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_ul_with_blank.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_ul_with_blank: list to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_ul_with_blank.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_ul_with_blank.text", creole.to_doc(:text))
+  end
+end #Test_creole_List
+
+
+
+class Test_creole_links < Test::Unit::TestCase
+  def test_creole_links_external_explizit()
+    creole = Creole.new(:content => <<creole
+Here's a external link without a description: [[http://www.wikicreole.org]].
+
+And here's a external link with a description: [[http://www.wikicreole.org|wikicreole.org]].
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_links_external.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_links_external.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_links_external: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_external.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_links_external.text", creole.to_doc(:text))
+  end #test_creole_links_external
+  
+  def test_creole_links_external_implicit()
+    creole = Creole.new(:content => <<creole
+Free links without braces should be rendered as well, like http://www.wikicreole.org/ and http://www.wikicreole.org/users/~example.
+
+See also description: http://www.wikicreole.org/wiki/Links
+
+In case of phrase ends with . you should use explicit links like
+[[http://www.wikicreole.org/users/~example]].
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_links_external_implicit.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_links_external_implicit.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_links_external_implicit: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_external_implicit.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_links_external_implicit.text", creole.to_doc(:text))
+  end #test_creole_links_external_implicit
+  def test_creole_links_explicit_with_em()
+    creole = Creole.new(:content => <<creole
+Be careful that italic links are rendered properly:  //[[http://my.book.example/|My Book Title]]// 
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_links_explicit_with_em.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_links_explicit_with_em.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_links_explicit_with_em: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_explicit_with_em.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_links_explicit_with_em.text", creole.to_doc(:text))
+  end #test_creole_links_explicit_with_em
+
+  def test_creole_links_file()
+    creole = Creole.new(:content => <<creole
+[[./#{__FILE__}]]
+
+[[./#{__FILE__}|This unittest-source]]
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_links_file.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_links_file.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_links_file: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_file.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_links_file.text", creole.to_doc(:text))
+  end #test_creole_links_file
+
+  def test_creole_links_explicit_internal()
+    creole = Creole.new(:content => <<creole
+[[#internal]]
+
+[[#internal|Links inside]]
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_links_explicit_internal.html", creole.to_doc(:html))
+    $log.warn('test_creole_links_explicit_internal: to latex')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_explicit_internal.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_links_explicit_internal: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_links_explicit_internal.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_links_explicit_internal.text", creole.to_doc(:text))
+  end #test_creole_links_explicit_internal
+
+end #Test_creole_links
+
+
+class Test_creole_pictures < Test::Unit::TestCase
+  def test_creole_pictures()
+    creole = Creole.new(:content => <<creole
+This should be a flower with the ALT text "this is a flower" if your wiki supports ALT text on images:
+
+{{Red_Flower.jpg}}
+
+{{Red_Flower.jpg|here is a red flower}}
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_pictures.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_pictures.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_pictures: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_pictures: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures.text", creole.to_doc(:text))
+  end #test_creole_pictures
+  def test_creole_picture_link()
+    creole = Creole.new(:name => 'Creole_picture_link',
+                                :content => <<creole
+[[./#{__FILE__}|{{Red_Flower.jpg}}]] - if you click on the image, will goto "some link"
+
+[[http://example.com/|{{Red_Flower.jpg}}]] - same as above: picture links to url
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_picture_link.html", creole.to_doc(:html))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_picture_link.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_picture_link: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_picture_link.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_picture_link.text", creole.to_doc(:text))
+  end #test_creole_picture_link
+  def test_creole_pictures_css()
+    creole = Creole.new(
+                    :name => 'pictures_css',
+                    :content => <<creole
+{{Red_Flower.jpg|red flower|css=width:50px}}
+{{Red_Flower.jpg|red flower|imgcss=width:100px}}
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_pictures_css.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_pictures_css.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_pictures_css: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures_css.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_pictures_css: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures_css.text", creole.to_doc(:text))
+  end #test_creole_pictures_css
+  def test_creole_pictures_imgclass()
+    creole = Creole.new(
+                    :name => 'pictures_imgclass',
+                    :content => <<creole
+{{Red_Flower.jpg||class=test}}
+
+{{Red_Flower.jpg||imgclass=test}}
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_pictures_imgclass.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_pictures_imgclass.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_pictures_imgclass: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures_imgclass.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_pictures_imgclass: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_pictures_imgclass.text", creole.to_doc(:text))
+  end #test_creole_pictures_imgclass
+
+end   #Test_creole_pictures
+
+
+class Test_creole_verbatim < Test::Unit::TestCase
+  def test_creole_verbatim()
+    creole = Creole.new(  :name => 'creole_verbatim',
+                                  :content => <<creole
+You can use nowiki syntax if you would like do stuff like this:
+
+{{{
+Guitar Chord C:
+
+||---|---|---|
+||-0-|---|---|
+||---|---|---|
+||---|-0-|---|
+||---|---|-0-|
+||---|---|---|
+}}}
+
+before
+{{{
+  This is some verbatim text
+}}}
+after
+
+See http://www.wikicreole.org/wiki/PreformattedAndNowiki
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_verbatim: change < to &lt; ....')
+    $log.warn('test_creole_verbatim: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_verbatim.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim.text", creole.to_doc(:text))
+  end #test_creole_verbatim
+  def test_creole_verbatim_inline()
+    creole = Creole.new(:content => <<creole
+
+You can also use inline nowiki {{{ in a sentence }}} like this.
+See http://www.wikicreole.org/wiki/PreformattedAndNowiki
+
+Some examples of markup are: {{{** <i>this</i> ** }}}
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_verbatim_inline: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline.creole", creole.to_doc(:creole))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline.text", creole.to_doc(:text))
+  end #test_creole_verbatim_inline
+  def test_creole_verbatim_inline_at_start()
+    creole = Creole.new(
+                    :name => 'verbatim_inline_at_start',
+                    :content => <<creole
+Short verbatim can also be at the start:
+{{{this is verbatim}}}
+
+This test checks, if the differences of normal verbatim is detected.
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline_at_start.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline_at_start.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_verbatim_inline_at_start: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline_at_start.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_verbatim_inline_at_start: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_verbatim_inline_at_start.text", creole.to_doc(:text))
+  end #test_creole_verbatim_inline_at_start
+  
+end #Test_creole_verbatim
+
+class Test_creole_placeholders < Test::Unit::TestCase
+  def test_creole_placeholders()
+    creole = Creole.new(:content => <<creole
+==Titel 1==
+Text
+creole
+    )
+    assert_equal( Creole::Placeholders, creole.placeholders)
+    assert_equal( Creole_dummy_placeholder, Creole::Placeholders[:undefined])
+    assert_equal( Creole_html, Creole::Placeholders['html'])
+    #~ assert_instance_of( Creole_dummy_placeholder, Creole::Placeholders[:undefined])
+    Creole::Placeholders.each{|key,placeholder_class|
+      assert_equal( placeholder_class, Creole::Placeholders[key])
+      assert_equal( placeholder_class, creole.placeholders[key])
+      
+      placeholder = placeholder_class.new( Creole.new )
+      #Check inheratance.
+      assert_kind_of( Creole_placeholder, placeholder)
+    }
+  end #test_creole_placeholders
+  def test_creole_placeholders_html()
+    creole = Creole.new(:content => <<creole
+before
+<<<html
+<em>this is only for HTML</em>
+>>>
+after
+creole
+    )
+    #Really like this? Or should there be no paragraph?
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_html.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_html.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_placeholders_html: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_placeholders_html.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_html.text", creole.to_doc(:text))
+  end #test_creole_placeholders_html
+  def test_creole_placeholders_latex()
+    creole = Creole.new(:content => <<creole
+before
+<<<latex
+\\textbf{this is only for latex}
+>>>
+after
+creole
+    )
+    #Really like this? Or should there be no paragraph?
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_latex.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_latex.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_placeholders_latex: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_placeholders_latex.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_placeholders_latex.text", creole.to_doc(:text))
+  end #test_creole_placeholders_latex
+  
+end   #Test_creole_placeholders
+
+#http://www.wikicreole.org/wiki/Tables
+class Test_creole_tabular < Test::Unit::TestCase
+  def test_creole_tabular_creole()
+    creole = Creole.new(
+                    :name => 'tabular_creole',
+                    :content => <<'creole'
+Tables are done like this:
+|=header col1|=header col2| 
+|col1|col2| 
+|you         |can         | 
+|also        |align\\ it. | 
+creole
+    )
+    $log.warn('test_creole_tabular_creole: tabular inside paragraphs/list...')
+    $log.warn('test_creole_tabular_creole: wiki syntax inside cell ')
+    assert_equal_filecontent( "expected_creole/test_creole_tabular_creole.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_tabular_creole.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_tabular_creole: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular_creole.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_tabular_creole: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular_creole.text", creole.to_doc(:text))
+  end #test_creole_tabular_creole
+  
+  def test_creole_tabular()
+    creole = Creole.new(:content => <<creole
+before
+<<<tabular
+|!columns=3
+|!columndescription=ccc
+|=1
+|=2
+|=3
+|-
+|eins
+|zwei
+|drei
+|-
+|one
+|two
+|three
+>>>
+after
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_tabular.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_tabular.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_tabular: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_tabular: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular.text", creole.to_doc(:text))
+  end #test_creole_tabular
+  def test_creole_tabular_css()
+    creole = Creole.new(:content => <<creole
+before
+<<<tabular
+|!columns=3
+|!columndescription=ccc
+|!css=border-width: 1px
+|!css=border-style: solid
+|=1
+|=2
+|=3
+|-
+|eins
+|zwei
+|drei
+|-
+|one
+|two
+|three
+>>>
+after
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_tabular_css.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_tabular_css.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_tabular_css: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular_css.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_tabular_css: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_tabular_css.text", creole.to_doc(:text))
+  end #test_creole_tabular_css
+end   #Test_creole_tabular
+
+class Test_creole_footnote < Test::Unit::TestCase
+  def test_creole_footnotes()
+    creole = Creole.new(
+                    :name => 'footnotes',
+                    :content => <<creole
+<<footnote|This is a footnote>>
+----
+<<footnotes>>
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_footnotes.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_footnotes.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_footnotes: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_footnotes.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_footnotes: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_footnotes.text", creole.to_doc(:text))
+  end #test_creole_footnotes
+  def test_creole_footnotes_label()
+    creole = Creole.new(
+                    :name => 'footnotes_label',
+                    :content => <<creole
+<<footnote|This is a footnote|label=s>>
+This makes only sense in HTML
+----
+<<footnotes>>
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_footnotes_label.html", creole.to_doc(:html))
+    #~ assert_equal_filecontent( "expected_creole/test_creole_footnotes_label.latex", creole.to_doc(:latex))
+    #~ $log.warn('test_creole_footnotes_label: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_footnotes_label.creole", creole.to_doc(:creole))
+    #~ $log.warn('test_creole_footnotes_label: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_footnotes_label.text", creole.to_doc(:text))
+  end #test_creole_footnotes_label
+  
+end   #Test_creole_footnote 
+
+class Test_creole_characters < Test::Unit::TestCase
+  def test_creole_characters_all()
+    creole = Creole.new(
+                    :name => 'characters_all',
+                    :content => Creole::CHARACTERS.keys.map{|char| "*#{char}" }.join("\n")
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_characters_all.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_characters_all.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_characters_all: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_characters_all.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_characters_all: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_characters_all.text", creole.to_doc(:text))
+  end #test_creole_characters_all  
+  def test_creole_characters_special()
+    creole = Creole.new(
+                    :name => 'characters_special',
+                    :content => <<creole
+Special Characters:
+*$ - Dollar
+*% - Percent
+*=> Rightarrow
+*-> rightarrow
+*_ Underscore
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_characters_special.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_characters_special.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_characters_special: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_characters_special.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_characters_special: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_characters_special.text", creole.to_doc(:text))
+  end #test_creole_characters_special
+  
+end   #Test_creole_characters
+
+class Test_creole_inline_ruby < Test::Unit::TestCase
+  def self.ruby_test()
+    return '*hallo welt'
+  end  
+  def test_creole_inline_ruby_raw()
+    creole = Creole.new(
+                    :name => 'inline_ruby_raw',
+                    :content => <<creole
+The following Rubycode is added as raw text.
+1 + 1 = <<ruby_raw|1+1>>
+
+<<ruby_raw|Test_creole_inline_ruby::ruby_test>>
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_inline_ruby_raw.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_inline_ruby_raw.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_inline_ruby_raw: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_inline_ruby_raw.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_inline_ruby_raw: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_inline_ruby_raw.text", creole.to_doc(:text))
+  end #test_creole_inline_ruby_raw  
+  def test_creole_inline_ruby()
+    creole = Creole.new(
+                    :name => 'inline_ruby',
+                    :content => <<creole
+The following ruby code is added and parsed by the wiki.
+*1 + 1 = <<ruby|1+1>>
+<<ruby|Test_creole_inline_ruby::ruby_test>>
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_inline_ruby.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_inline_ruby.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_inline_ruby: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_inline_ruby.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_inline_ruby: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_inline_ruby.text", creole.to_doc(:text))
+  end #test_creole_inline_ruby
+  def test_creole_countdown()
+    creole = Creole.new(
+                    :name => 'countdown',
+                    :content => <<creole
+Countdown: <<ruby_raw|(1..10).to_a.reverse.join("-")>>
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_countdown.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_countdown.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_countdown: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_countdown.creole", creole.to_doc(:creole))
+    $log.warn('test_creole_countdown: to text/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_countdown.text", creole.to_doc(:text))
+  end #test_creole_countdown
+  
+end   #Test_creole_inline_ruby
+
+
+def newtest(text, with_class = false )
+    code = ''
+    code << "class Test_creole_#{text} < Test::Unit::TestCase\n" if with_class
+    code << <<code
+  def test_creole_#{text}()
+    creole = Creole.new(
+                    :name => '#{text}',
+                    :content => <<creole
+==Titel 1==
+Text
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_#{text}.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_#{text}.latex", creole.to_doc(:latex))
+    $log.warn('test_creole_#{text}: to wiki/creole')
+    #~ assert_equal_filecontent( "expected_creole/test_creole_#{text}.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_#{text}.text", creole.to_doc(:text))
+  end #test_creole_#{text}
+code
+  code << "end   #Test_creole_#{text}\n" if with_class
+  puts code
+end
+#~ newtest('links_explicit_internal')
+#~ newtest('tabular', true)
+#~ newtest('picture_link')
+#~ newtest('verb')
+
+
+
+__END__
+= Escapes =
+Normal Link: http://wikicreole.org/ - now same link, but escaped: ~http://wikicreole.org/ 
+
+Normal asterisks: ~**not bold~**
+
+a tilde alone: ~
+
+a tilde escapes itself: ~~xxx
+
+--------------------------------------------
+Meine Erweiterungen
+--------------------------------------------
+
+def test_creole_amazon()
+    creole = Creole.new(:content => <<creole
+{{amazon|asin=B000AFEJAM}}
+
+{{amazon|asin=B000AFEJAM|right}}
+creole
+    )
+    assert_equal_filecontent( "expected_creole/test_creole_amazon.html", creole.to_doc(:html))
+    assert_equal_filecontent( "expected_creole/test_creole_amazon.latex", creole.to_doc(:latex))
+    assert_equal_filecontent( "expected_creole/test_creole_amazon.creole", creole.to_doc(:creole))
+    assert_equal_filecontent( "expected_creole/test_creole_amazon.text", creole.to_doc(:text))
+  end
+
+---------
+neue Ideen
+#~ {{{div:css=sss
+#~ {{{p:css=sss