Unit tests for Literate Haskell
[ohcount] / test / unit / perl_test.rb
1 require File.dirname(__FILE__) + '/../test_helper'
2
3 class Ohcount::PerlTest < Ohcount::Test
4         def test_comments
5                 lb = [Ohcount::LanguageBreakdown.new("perl", "", "#comment", 0)]
6                 assert_equal lb, Ohcount::parse(" #comment", "perl")
7         end
8
9         def test_perl_in_cgi
10                 verify_parse("perl.cgi")
11         end
12
13         def test_comprehensive
14                 verify_parse("perl1.pl")
15         end
16
17         def test_comprehensive
18                 verify_parse("perl_module.pm")
19         end
20 end