fdlint 0.1.0

data/test/js/stat/iter.rb

@@ -0,0 +1,115 @@
+module XRayTest
+  module JS
+    module Stat
+      
+      module Iter
+
+        def test_parse_stat_dowhile
+          js = '
+           do {
+            i++;    
+           } while (x === 0 || x >= 1)
+          '
+
+          stat = parse_js :parse_stat_dowhile, js
+          assert_equal 'dowhile', stat.type
+
+          assert_equal '(block,[(expression,(++,i,),)],)', stat.body.text
+          assert_equal '(||,(===,x,0),(>=,x,1))', stat.condition.text
+        end
+
+        def test_parse_stat_while
+          js = '
+            while (i++ < 100) {
+              alert("hello"); 
+              i++;
+            }
+          '
+
+          stat = parse_js :parse_stat_while, js
+
+          assert_equal 'while', stat.type
+          assert_equal '(<,(++,i,),100)', stat.condition.text
+          assert_equal '(block,[(expression,((,alert,["hello"]),),(expression,(++,i,),)],)', 
+              stat.body.text
+        end
+
+        def test_parse_stat_for
+          test_parse_stat_fordefault
+          test_parse_stat_forvar
+          test_parse_stat_forvarin
+          test_parse_stat_forin
+        end
+
+        private
+
+        def test_parse_stat_fordefault
+          js = '
+            for (i = 0; i < 10; i++) {
+              hello(i);    
+            }
+          '
+
+          stat = parse_js :parse_stat_for, js
+          assert_equal 'for', stat.type
+          
+          con = stat.condition
+          assert_equal 'fordefault', con.type
+          assert_equal '(=,i,0)', con.first.text
+          assert_equal '(<,i,10)', con.second.text
+          assert_equal '(++,i,)', con.third.text
+        end 
+
+        def test_parse_stat_forvar
+          js = '
+            for (var i = 1; i < 10; i++) {
+              hello(i)    
+            }
+          '
+
+          stat = parse_js :parse_stat_for, js
+          con = stat.condition
+
+          assert_equal 'forvar', con.type
+          assert_equal '[(var=,i,1)]', con.first.text
+          assert_equal '(<,i,10)', con.second.text
+          assert_equal '(++,i,)', con.third.text
+        end
+
+        def test_parse_stat_forvarin
+          js = '
+            for (var k in o) {
+              alert(o[k]);    
+            }
+          '
+          
+          stat = parse_js :parse_stat_for, js
+          con = stat.condition
+
+          assert_equal 'forvarin', con.type
+          assert_equal '[(var=,k,)]', con.first.text
+          assert_equal 'o', con.second.text
+          assert_equal nil, con.third
+        end
+
+        def test_parse_stat_forin
+          js = '
+            for (k in o) {
+              alert(o[k]);    
+            }
+          '
+          
+          stat = parse_js :parse_stat_for, js
+          con = stat.condition
+
+          assert_equal 'forin', con.type
+          assert_equal 'k', con.first.text
+          assert_equal 'o', con.second.text
+          assert_equal nil, con.third
+        end
+        
+      end
+
+    end
+  end
+end

data/test/js/stat/stat.rb

@@ -0,0 +1,91 @@
+require_relative 'var'
+require_relative 'if'
+require_relative 'switch'
+require_relative 'iter'
+require_relative 'try'
+
+module XRayTest
+  module JS
+    module Stat
+      
+      module Stat
+
+        include Var, If, Switch, Iter, Try
+
+        def test_parse_statement
+          js = ''
+          stat = parse_js :parse_statement, js 
+        end
+
+        def test_parse_stat_block
+          js = '
+            {
+              a = 1;
+              b = 2;
+              c++;
+              i = i / 1;
+              ;
+              i++;
+            }
+          '
+          
+          stat = parse_js :parse_stat_block, js
+          assert_equal 6, stat.elements.length
+
+          assert_equal 'empty', stat.elements[4].type
+        end
+
+        def test_parse_stat_continue
+          js = 'continue ; '
+          stat = parse_js :parse_stat_continue, js
+
+          assert_equal 'continue', stat.type
+          assert_equal true, stat.end_with_semicolon?
+          assert_equal nil, stat.left
+
+          js = "continue\n"
+          stat = parse_js :parse_stat_continue, js
+          assert_equal false, stat.end_with_semicolon?
+          assert_equal nil, stat.left
+
+          js = 'continue abcde;'
+          stat = parse_js :parse_stat_continue, js
+          assert_equal true, stat.end_with_semicolon?
+          assert_equal 'abcde', stat.left.text
+        end
+
+        def test_parse_break
+          js = 'break'
+          stat = parse_js :parse_stat_break, js
+          assert_equal 'break', stat.type
+        end
+
+        def test_parse_stat_return
+          js = 'return a + 1;'
+          stat = parse_js :parse_stat_return, js
+
+          assert_equal 'return', stat.type
+          assert_equal '(+,a,1)', stat.left.text
+
+          js = 'return;'
+          stat = parse_js :parse_stat_return, js
+          assert_equal nil, stat.left
+
+          js = "return"
+          stat = parse_js :parse_stat_return, js
+          assert_equal false, stat.end_with_semicolon?
+        end
+
+        def test_parse_throw
+          js = 'throw "assert false";'
+          stat = parse_js :parse_stat_throw, js
+
+          assert_equal 'throw', stat.type
+          assert_equal '"assert false"', stat.left.text
+        end
+
+      end
+
+    end
+  end
+end

data/test/js/stat/switch.rb

@@ -0,0 +1,37 @@
+module XRayTest
+  module JS
+    module Stat
+      
+      module Switch
+        def test_parse_stat_switch
+          js = '
+            switch (a) {
+            case 1:
+              i++;
+              break;
+            case 2:
+              i--;
+              break;
+            default:
+              break; 
+            case 3:
+              a++;
+              break;
+            }
+          '
+
+          stat = parse_js :parse_stat_switch, js
+
+          assert_equal 'switch', stat.type
+          assert_equal 'a', stat.expression.text
+          
+          block = stat.case_block
+          assert_equal '[(caseclause,1,[(expression,(++,i,),),(break,,)]),(caseclause,2,[(expression,(--,i,),),(break,,)])]', block.case_clauses.text 
+          assert_equal '(defaultclause,[(break,,)],)', block.default_clause.text
+          assert_equal '[(caseclause,3,[(expression,(++,a,),),(break,,)])]', block.bottom_case_clauses.text
+        end
+      end
+
+    end
+  end
+end

data/test/js/stat/try.rb

@@ -0,0 +1,32 @@
+module XRayTest
+  module JS
+    module Stat
+      
+      module Try
+        def test_stat_try
+          js = '
+            try {
+              a = 1 + 2;
+            } catch (e) {
+              console.debug("something error");    
+            } finally {
+              hello();    
+            }
+          '
+
+          stat = parse_js :parse_stat_try, js
+          
+          assert_equal 'try', stat.type
+          assert_equal '(block,[(expression,(=,a,(+,1,2)),)],)', stat.try_part.text
+
+          assert_equal 'catch', stat.catch_part.type
+          assert_equal 'e', stat.catch_part.left.text
+          assert_equal '(block,[(expression,((,(.,console,debug),["something error"]),)],)', stat.catch_part.right.text
+
+          assert_equal '(block,[(expression,((,hello,[]),)],)', stat.finally_part.text
+        end
+      end
+
+    end
+  end
+end

data/test/js/stat/var.rb

@@ -0,0 +1,38 @@
+module XRayTest
+  module JS
+    module Stat
+      
+      module Var
+        def test_parse_stat_var
+          js = 'var a = 1, b, c = 1 + a;' 
+          expr = parse_js :parse_stat_var, js
+
+          assert_equal 'var', expr.type
+
+          decls = expr.declarations
+          
+          assert_equal 3, decls.length
+          assert_equal '[(var=,a,1),(var=,b,),(var=,c,(+,1,a))]', decls.text
+          assert_equal true, expr.end_with_semicolon?
+
+          js = "var a = c++, b = c, c = 123\n a = 1 + 1"
+          expr = parse_js :parse_stat_var, js
+          assert_equal false, expr.end_with_semicolon?
+
+          js = 'var a = c, b = a--'
+          expr = parse_js :parse_stat_var, js
+          assert_equal false, expr.end_with_semicolon?
+          
+          js = <<EOF 
+  var rBackslash = /\\\\/g,
+	rReturn = /\\r\\n/g,
+	rNonWord = /\\W/;
+EOF
+          expr = parse_js :parse_stat_var, js
+          assert_equal '(var,[(var=,rBackslash,/\\\\/g),(var=,rReturn,/\\r\\n/g),(var=,rNonWord,/\\W/)],)', expr.text
+        end
+      end
+
+    end
+  end
+end

data/test/parser_visitable_test.rb

@@ -0,0 +1,102 @@
+require_relative 'helper'
+
+require 'node'
+require 'parser_visitable'
+
+
+module XRayTest
+  
+  class ParserVisitableTest < Test::Unit::TestCase  
+    
+    Node = XRay::Node
+    ParserVisitable = XRay::ParserVisitable
+
+    class MockParser
+
+      include ParserVisitable
+
+      def parse_node
+        puts 'parse node'
+
+        parse_node_a
+        parse_node_b
+
+        Node.new 'node'
+      end
+
+      def parse_node_a
+        puts 'parse node a'
+        Node.new 'node a'
+      end
+
+      def parse_node_b
+        puts 'parse node b'
+
+        parse_node_c
+
+        Node.new 'node b'
+      end
+
+      def parse_node_c
+        puts 'parse node c'
+        Node.new 'node c'
+      end
+      
+    end
+
+    class SimpleVisitor
+      
+      def visit_node(node)
+        puts "visit node: #{node}"
+        ['visit node', :info]
+      end
+
+      def visit_node_a(node)
+        puts "visit node a: #{node}"
+        ['visit node a', :warn]
+      end
+
+      def visit_node_b(node)
+        puts "visit node b: #{node}"
+        [
+          ['visit node b 1', :warn],
+          ['visit node b 2', :info]
+        ]
+      end
+
+      def visit_node_c(node)
+        puts "visit node c: #{node}"
+        ['visit node c', :warn]
+      end
+    end
+
+    class SimpleObserver
+      attr_reader :times
+
+      def update(result, parser)
+        puts "observer: #{result}"
+        @times ||= 0
+        @times += 1  
+      end
+    end
+
+
+    def test_default
+      parser = MockParser.new
+
+      visitor = SimpleVisitor.new
+      parser.add_visitor SimpleVisitor.new
+
+      observer = SimpleObserver.new
+      parser.add_observer observer
+
+      parser.parse_node
+
+      results = parser.results
+      assert_equal 5, results.length
+      assert_equal 5, observer.times
+    end
+    
+  end
+
+end

data/test/position_info_test.rb

@@ -0,0 +1,66 @@
+# encoding: utf-8
+
+require_relative 'helper'
+
+require 'position_info'
+
+module XRayTest
+  
+  class PositionInfoTest < Test::Unit::TestCase
+
+    PositionInfo = XRay::PositionInfo
+
+    Position = XRay::Position
+
+    @@test_paragraph = %(this is line one
+   this is line two this is line two    
+ this is line three  
+       this is ine 4 
+        中文字行数
+  打算怎么办
+         )
+
+    def test_position_of_first_line
+        text, info, lines = prepair @@test_paragraph
+        len = lines[0].length
+        assert_equal Position.new(0, 1, 1), info.locate(0), '第一行第一个字符'
+        assert_equal Position.new(6, 1, 7), info.locate(6), '第一行第7个字符'
+        assert_equal Position.new(len - 1, 1, len), info.locate(len - 1), '第一行最后一个字符'
+    end
+
+    def test_position_of_middle_line
+        text, info, lines = prepair @@test_paragraph
+        len = lines[0].length
+        assert_equal Position.new(len, 2, 1), info.locate(len), '第2行的第一个字符'
+        assert_equal Position.new(len + 1, 2, 2), info.locate(len + 1), '第2行的第2个字符'
+        assert_equal Position.new(len + 5, 2, 6), info.locate(len + 5), '第2行的第6个字符'
+    end
+    
+    def test_position_of_4th_line
+        text, info, lines = prepair @@test_paragraph
+        len = 0
+        (0..2).each {|n| len += lines[n].length }
+        assert_equal Position.new(len, 4, 1), info.locate(len), '第4行的第一个字符'
+        assert_equal Position.new(len + 1, 4, 2), info.locate(len + 1), '第4行的第2个字符'
+        assert_equal Position.new(len + 5, 4, 6), info.locate(len + 5), '第4行的第6个字符'
+    end
+
+    def test_position_all_line
+        text, info, lines = prepair @@test_paragraph
+        pos = 0
+        lines.each_with_index do |line, row|
+          0.upto(line.length - 1) do |col|
+            assert_equal Position.new(pos, row + 1, col + 1), info.locate(pos)
+            pos += 1
+          end
+        end
+    end
+
+    def prepair(text)
+        info = PositionInfo.new text
+        lines = text.split("\n").map { |l| "#{l}\n" }
+        [text, info, lines]
+    end
+
+  end
+end

data/test/rule_dsl/dsl_basic_test.rb

@@ -0,0 +1,91 @@
+# encoding: utf-8
+
+require_relative '../helper'
+
+module XRayTest
+
+  module Rule
+  
+    class DSLBasicTest < Test::Unit::TestCase
+
+      include ::XRay::Rule
+
+      def setup
+        @rule = Proc.new do |file|
+          @called = true
+          ["it's just a test", :warn]
+        end
+        @called = false
+        clear_all_rules
+        common
+      end
+      
+      def test_add_file_checker
+        check_file &@rule
+        assert_contains file_rules, "available in common rules"
+        assert_contains css_rules, "common rules available in css rules too"
+        assert_contains css_file_rules, "common rules available in css file rules too"
+        assert_not_contains only_css_file_rules, "not available in css rules only"
+      end
+
+      def test_add_css_file_checker
+        css {
+          check_file &@rule
+        }
+        assert_not_contains file_rules, "not available in common rules"
+        assert_contains css_file_rules, "available in css rules"
+        assert_contains only_css_file_rules, "available in css only rules"
+      end
+
+      def test_check
+        check_file &@rule
+        assert_equal check_file("test"), [["it's just a test", :warn]]
+        assert @called
+      end
+
+      def test_named_checker
+        msg = ['we suggest use "-" instead', :info]
+        html {
+          check_file_with_underline do |file|
+            msg if file =~ /_/
+          end
+        }
+
+        results = check_file_with_underline 'a_b.html'
+        assert_equal msg, results
+      end
+
+      def test_normal_plus_named_checker
+        case_warn = ['must use downcase filename', :error]
+        check_file { |file| 
+          case_warn if file =~ /[A-Z]/
+        }
+
+        msg = ['we suggest use "-" instead', :info]
+        html {
+          check_file_with_underline do |file|
+            msg if file =~ /_/
+          end
+        }
+
+        results = check_html_file 'a_B.html'
+        assert_equal [case_warn, msg], results
+        
+      end
+
+      def assert_contains( rules, *msg )
+        assert has_rule?(rules), *msg
+      end
+
+      def assert_not_contains( rules, *msg)
+        assert !has_rule?(rules), *msg
+      end
+
+      def has_rule?( rules )
+        rules.any? {|r| r[:block] == @rule }
+      end
+
+    end
+
+  end
+end

data/test/rule_dsl/importing_test.rb

@@ -0,0 +1,48 @@
+# encoding: utf-8
+
+require_relative '../helper'
+
+module XRayTest
+
+  module Rule
+  
+    class ImportingTest < Test::Unit::TestCase
+
+      include ::XRay::Rule
+
+      def setup
+        clear_all_rules
+      end
+      
+      def test_import_with_symbol
+        import :css
+        assert css_rules.size > 0
+      end
+
+      def test_import_with_symbol_twice
+        assert_equal 0, css_rules.size
+
+        import :css
+        size = css_rules.size
+        assert size > 0
+
+        import :css
+        assert_equal size, css_rules.size
+      end
+
+      def test_import_all_twice
+        assert_equal 0, css_rules.size
+
+        import_all
+        size = css_rules.size
+        assert size > 0
+
+        import_all
+        assert_equal size, css_rules.size
+        
+      end
+
+    end
+
+  end
+end

data/test/runner/log_level_test.rb

@@ -0,0 +1,58 @@
+# encoding: utf-8
+require 'test/unit'
+require_relative '../helper'
+
+module XRayTest
+
+  module Runner
+
+    class LogLevelTest < Test::Unit::TestCase
+
+      def setup
+        @runner = XRay::Runner.new
+        @html = fixture('html/mixed_log_levels.html')
+      end
+
+      def test_output_every_thing_by_default
+        res = @runner.check_html @html
+        assert_contain( res, :fatal, :error, :warn )
+      end
+
+      def test_output_fatals_only
+        @runner.log_level = :fatal
+        res = @runner.check_html( @html )
+        assert_contain( res, :fatal )
+        assert_not_contain( res, :error, :warn )
+      end
+
+      def test_output_fatals_and_errors
+        @runner.log_level = :error
+        res = @runner.check_html( @html )
+        assert_contain( res, :fatal, :error )
+        assert_not_contain( res, :warn )
+      end
+
+      def test_output_fatals_errors_and_warnnings
+        @runner.log_level = :warn
+        res = @runner.check_html( @html )
+        assert_contain( res, :fatal, :error, :warn )
+      end
+
+      private
+      def assert_contain( results, *types )
+        types.each do |type|
+          assert( results.any? { |r| r.level == type } )
+        end
+      end
+
+      def assert_not_contain( results, *types )
+        types.each do |type|
+          assert( ! (results.any? { |r| r.level == type } ) )
+        end
+      end
+
+    end
+
+  end
+
+end