nasl-pedant 0.0.1

data/lib/pedant.rb

@@ -0,0 +1,51 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+require 'nasl'
+require 'pathname'
+require 'rainbow'
+
+module Pedant
+  def self.root
+    @root ||= Pathname.new('').expand_path
+  end
+
+  def self.lib
+    root + 'lib'
+  end
+
+  def self.test
+    root + 'test'
+  end
+
+  autoload :Check,         'pedant/check'
+  autoload :Cli,           'pedant/cli'
+  autoload :Command,       'pedant/command'
+  autoload :KnowledgeBase, 'pedant/knowledge_base'
+  autoload :Test,          'pedant/test'
+end
+
+$LOAD_PATH.unshift(Pedant.lib.to_s)

data/pedant.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path('../lib', __FILE__)
+require 'pedant/version'
+
+Gem::Specification.new do |s|
+  s.name        = 'nasl-pedant'
+  s.version     = Pedant::VERSION
+  s.authors     = ['Mak Kolybabi']
+  s.email       = ['mak@kolybabi.com']
+  s.homepage    = 'http://github.com/mogigoma/pedant'
+  s.summary     = %q{A static analysis framework for the Nessus Attack Scripting Language.}
+
+  s.rubyforge_project = 'nasl-pedant'
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ['lib']
+
+  s.add_development_dependency 'rake'
+  s.add_development_dependency 'minitest'
+
+  s.add_runtime_dependency 'rainbow'
+  s.add_runtime_dependency 'nasl', '>= 0.0.4'
+end

data/test/test_helper.rb

@@ -0,0 +1,5 @@
+require 'pedant'
+require 'test/unit'
+
+class Test::Unit::TestCase
+end

data/test/unit/checks/conditional_or_loop_is_empty.rb

@@ -0,0 +1,125 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestConditionalOrLoopIsEmpty < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_none
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q||
+    )
+  end
+
+  def test_for
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|for (;1;) ;|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|for (;1;) {}|
+    )
+  end
+
+  def test_foreach
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|foreach foo (bar) ;|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|foreach foo (bar) {}|
+    )
+  end
+
+  def test_if
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|if (1) ;|
+    )
+
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|if (1) ; else {}|
+    )
+
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|if (1) {} else ;|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|if (1) {}|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|if (1) {} else {}|
+    )
+  end
+
+  def test_repeat
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|repeat ; until 1;|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|repeat {} until 1;|
+    )
+  end
+
+  def test_while
+    check(
+      :fail,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|while (1) ;|
+    )
+
+    check(
+      :pass,
+      :CheckConditionalOrLoopIsEmpty,
+      %q|while (1) {}|
+    )
+  end
+end

data/test/unit/checks/contains_ip_address_literals.rb

@@ -0,0 +1,45 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestContainsIpAddressLiterals < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_none
+    check(
+      :pass,
+      :CheckContainsIpAddressLiterals,
+      %q||
+    )
+  end
+
+  def test_one
+    check(
+      :warn,
+      :CheckContainsIpAddressLiterals,
+      %q|z = 1.2.3.4;|
+    )
+  end
+end

data/test/unit/checks/contains_no_carriage_returns.rb

@@ -0,0 +1,43 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestContainsNoCarriageReturns < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_none
+    check(
+      :pass,
+      :CheckContainsNoCarriageReturns,
+      %q||
+    )
+
+    check(
+      :warn,
+      :CheckContainsNoCarriageReturns,
+      %Q|\r\n|
+    )
+  end
+end

data/test/unit/checks/contains_no_tabs.rb

@@ -0,0 +1,45 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestContainsNoTabs < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_none
+    check(
+      :pass,
+      :CheckContainsNoTabs,
+      %q||
+    )
+  end
+
+  def test_one
+    check(
+      :warn,
+      :CheckContainsNoTabs,
+      %Q|\t|
+    )
+  end
+end

data/test/unit/checks/contains_registration_section.rb

@@ -0,0 +1,101 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestContainsRegistrationSection < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_does
+    check(
+      :pass,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(0); }|
+    )
+  end
+
+  def test_does_not
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q||
+    )
+  end
+
+  def test_unexpected
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) ;|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) {}|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { ; }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { foo(); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(foo:1); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(foo, bar); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(1); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsRegistrationSection,
+      %q|if (description) { exit(0, foo); }|
+    )
+  end
+end

data/test/unit/checks/contains_unreachable_code.rb

@@ -0,0 +1,93 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestContainsUnreachableCode < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_top
+    check(
+      :pass,
+      :CheckContainsUnreachableCode,
+      %q||
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|exit(); foo();|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|return; foo();|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|break; foo();|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|continue; foo();|
+    )
+  end
+
+  def test_block
+    check(
+      :pass,
+      :CheckContainsUnreachableCode,
+      %q|{}|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|{ exit(); foo(); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|{ return; foo(); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|{ break; foo(); }|
+    )
+
+    check(
+      :fail,
+      :CheckContainsUnreachableCode,
+      %q|{ continue; foo(); }|
+    )
+  end
+end

data/test/unit/checks/ends_with_newline.rb

@@ -0,0 +1,45 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestEndsWithNewline < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_does
+    check(
+      :pass,
+      :CheckEndsWithNewline,
+      %Q|\n|
+    )
+  end
+
+  def test_does_not
+    check(
+      :warn,
+      :CheckEndsWithNewline,
+      %q||
+    )
+  end
+end

data/test/unit/checks/plugin_type_not_specified.rb

@@ -0,0 +1,72 @@
+################################################################################
+# Copyright (c) 2011, Mak Kolybabi
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+# 1. Redistributions of source code must retain the above copyright notice, this
+#    list of conditions and the following disclaimer.
+#
+# 2. Redistributions in binary form must reproduce the above copyright notice,
+#    this list of conditions and the following disclaimer in the documentation
+#    and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+################################################################################
+
+class TestPluginTypeNotSpecified < Test::Unit::TestCase
+  include Pedant::Test
+
+  def test_none
+    check(
+      :fail,
+      :CheckPluginTypeNotSpecified,
+      %q||
+    )
+  end
+
+  def test_one
+    check(
+      :pass,
+      :CheckPluginTypeNotSpecified,
+      %q|script_set_attribute(attribute:"plugin_type", value:"local");|
+    )
+  end
+
+  def test_many
+    check(
+      :fail,
+      :CheckPluginTypeNotSpecified,
+      %q|script_set_attribute(attribute:"plugin_type", value:"local");| +
+      %q|script_set_attribute(attribute:"plugin_type", value:"remote");|
+    )
+  end
+
+  def test_valid
+    ['combined', 'local', 'remote'].each do |type|
+      check(
+        :pass,
+        :CheckPluginTypeNotSpecified,
+        %Q|script_set_attribute(attribute:"plugin_type", value:"#{type}");|
+      )
+    end
+  end
+
+  def test_invalid
+    check(
+      :fail,
+      :CheckPluginTypeNotSpecified,
+      %q|script_set_attribute(attribute:"plugin_type", value:"foo");|
+    )
+  end
+end