mumuki-haskell-runner 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 652153fe22608c8b7f34bc0c2663dd5491645a16
+  data.tar.gz: 3eb2a880bcc0eb398faffdf844b76ca1cc4a3955
+SHA512:
+  metadata.gz: 99d83b59149373fe94a5a8730acb528e7fd1f394d982e308c07fb42908134a504c363c6adbd291f28f80f3d1d3d4c4b4b96ac278a9589d4968e754f149aa6341
+  data.tar.gz: 2766799db070d55c5c1332de60e820e709b1fef473a84456959ccedf08439675bcf869dc08a1166b1684897db40ccdb3c8acb0d5e979ece29a36596481978d97

data/lib/expectations_hook.rb

@@ -0,0 +1,9 @@
+require 'json'
+
+class HaskellExpectationsHook < Mumukit::Templates::MulangExpectationsHook
+  include_smells true
+
+  def language
+    'Haskell'
+  end
+end

data/lib/haskell_file_hook.rb

@@ -0,0 +1,12 @@
+class HaskellFileHook < Mumukit::Templates::FileHook
+  isolated true
+
+  def tempfile_extension
+    '.hs'
+  end
+
+  def command_line(filename)
+    "runhaskell #{filename}"
+  end
+
+end

data/lib/haskell_runner.rb

@@ -0,0 +1,14 @@
+require 'mumukit'
+
+Mumukit.runner_name = 'haskell'
+Mumukit.configure do |config|
+  config.docker_image = 'mumuki/mumuki-hspec-worker'
+  config.comment_type = Mumukit::Directives::CommentType::Haskell
+end
+
+require_relative './haskell_file_hook'
+require_relative './expectations_hook'
+require_relative './validation_hook'
+require_relative './metadata_hook'
+require_relative './test_hook'
+require_relative './query_hook'

data/lib/metadata_hook.rb

@@ -0,0 +1,16 @@
+class HaskellMetadataHook < Mumukit::Hook
+  def metadata
+    {language: {
+        name: 'haskell',
+        icon: {type: 'devicon', name: 'haskell'},
+        version: 'ghc-7.10.1',
+        extension: 'hs',
+        ace_mode: 'haskell'
+    },
+     test_framework: {
+         name: 'hspec',
+         version: '2',
+         test_extension: 'hs'
+     }}
+  end
+end

data/lib/query_hook.rb

@@ -0,0 +1,11 @@
+class HaskellQueryHook < HaskellFileHook
+  def compile_file_content(req)
+    <<EOF
+import Text.Show.Functions
+#{req.content}
+#{req.extra}
+main :: IO ()
+main = putStr.show $ #{req.query}
+EOF
+  end
+end

data/lib/test_hook.rb

@@ -0,0 +1,41 @@
+class HaskellTestHook < HaskellFileHook
+  structured true
+
+  def to_structured_result(result)
+    result = result.split('@@@RESULTS-START@@@').last
+    super(result).compact
+  end
+
+  def compile_file_content(req)
+    <<-EOF
+{-# OPTIONS_GHC -fdefer-type-errors #-}
+import Test.Hspec
+import Test.Hspec.Runner (hspecWith, defaultConfig, Config (configFormatter))
+import Test.QuickCheck
+import Test.Hspec.Formatters
+
+import qualified Control.Exception as Exception
+
+import Data.List
+
+structured :: Formatter
+structured = silent {
+  exampleSucceeded = \\p ->
+    writeTerm [formatPath p, "passed", ""],
+  exampleFailed    = \\p result -> case result of
+      (Right e) -> writeTerm [formatPath p, "failed", e]
+      (Left e)  -> writeTerm [formatPath p, "failed", show e],
+  headerFormatter  = write $ "@@@RESULTS-START@@@[",
+  footerFormatter  = write $ "null]"
+}
+  where formatPath (ps, p) = intercalate " " $ (ps ++ [p])
+        writeTerm = write.(++",").show
+
+#{req.content}
+#{req.extra}
+main :: IO ()
+main = hspecWith defaultConfig {configFormatter = Just structured} $ do
+#{req.test.lines.map {|it| '    ' + it}.join}
+EOF
+  end
+end

data/lib/validation_hook.rb

@@ -0,0 +1,14 @@
+class HaskellValidationHook < Mumukit::Hook
+  def validate!(request)
+    raise Mumukit::RequestValidationError, 'you can not use unsafe io' if unsafe?(request)
+  end
+
+  def unsafe?(request)
+    [
+        request.content,
+        request.test,
+        request.extra,
+        request.query
+    ].compact.any? { |it| it.include? 'System.IO.Unsafe' }
+  end
+end

metadata

@@ -0,0 +1,135 @@
+--- !ruby/object:Gem::Specification
+name: mumuki-haskell-runner
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Franco Leonardo Bulgarelli
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-09-27 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: mumukit
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.5'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.5'
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.4'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.4'
+- !ruby/object:Gem::Dependency
+  name: codeclimate-test-reporter
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: mumukit-bridge
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.3'
+description: 
+email:
+- franco@mumuki.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/expectations_hook.rb
+- lib/haskell_file_hook.rb
+- lib/haskell_runner.rb
+- lib/metadata_hook.rb
+- lib/query_hook.rb
+- lib/test_hook.rb
+- lib/validation_hook.rb
+homepage: http://github.com/mumuki/mumuki-haskell-server
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.8
+signing_key: 
+specification_version: 4
+summary: Haskell Runner for Mumuki
+test_files: []