funit-12 0.12.1

data/test/test_testsuite.rb

@@ -0,0 +1,111 @@
+require 'test/unit'
+require 'funit/testsuite'
+
+require 'fileutils'
+include FileUtils
+
+class TestTestSuite < Test::Unit::TestCase
+
+  def setup
+    files = *Dir["dummyf90test*"]
+    rm_f files if files
+  end 
+
+  def teardown
+    files = *Dir["dummyf90test*"]
+    rm_f files if files
+  end 
+
+  def test_nonexistent_funit_file_is_not_created
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert !File.exists?("dummyf90test.fun")
+    assert !File.exists?("dummyf90test_fun.f90")
+  end
+
+  def create_funit_file funit_contents
+    File.open('dummyf90test.f90','w') do |f|
+      f.puts "module dummyf90test\nend module dummyf90test"
+    end
+    File.open('dummyf90test.fun','w') do |f|
+      f.puts funit_contents
+    end
+  end
+
+  @@compileCommand = "#{ENV['FC']} -c dummyf90test.f90 dummyf90test_fun.f90"
+
+  def test_bare_minimum_funit_file_compiles
+    create_funit_file ""
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_module_variables_allowed
+    create_funit_file "integer :: a"
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_blank_setup_compiles
+    create_funit_file "beginSetup\nendSetup"
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_blank_test_gives_warning
+    create_funit_file "beginTest bob\nendTest"
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_single_assert_test_compiles
+    create_funit_file "beginTest assertTrue\nAssertTrue(.true.)\nendTest"
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_matrix_assert_compiles
+    create_funit_file <<-MATRIX
+ beginTest assertTrue
+  integer :: a(2,2)
+  a = 1
+  AssertEqual(1,a(1,1))
+ endTest
+    MATRIX
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_simple_real_equals_assert_works
+    create_funit_file <<-REALEQUALS
+ beginTest assert_equals
+  real :: real_var
+  real_var = 1.0
+  AssertRealEqual(1.0,real_var)
+ endTest
+    REALEQUALS
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_real_equals_assert_works_with_function
+    create_funit_file <<-REQUALSFUNC
+ beginTest assert_equals_for_function
+  AssertRealEqual(0.0,balance(0.0,0.0))
+ endTest
+ function balance( left, right)
+  real :: balance
+  real, intent(in) :: left, right
+  balance = 0.5*(left+right)
+ end function balance
+    REQUALSFUNC
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert system(@@compileCommand)
+  end
+
+  def test_ignore_commented_test
+    create_funit_file "XbeginTest bob\nendTest"
+    Funit::TestSuite.new 'dummyf90test', '', false
+    assert_no_match( /Testbob/i, IO.readlines('dummyf90test_fun.f90').join )
+  end
+
+end

data/utils/errorFinder.el

@@ -0,0 +1,88 @@
+From - Mon Nov 12 23:36:17 2001
+Path: reznor.larc.nasa.gov!kant.larc.nasa.gov!logbridge.uoregon.edu!news-peer.gip.net!news.gsl.net!gip.net!newsfeed.mathworks.com!cyclone.swbell.net!easynews!sjc-peer.news.verio.net!news.verio.net!sea-read.news.verio.net.POSTED!not-for-mail
+Sender: mikesl@thneed.na.wrq.com
+Newsgroups: comp.emacs
+Subject: Re: Re-centering buffer based on error line indicted in another buffer
+References: <3BF03829.826F39CB@LaRC.NASA.Gov>
+From: Michael Slass <mikesl@wrq.com>
+Message-ID: <m3wv0vipqe.fsf@thneed.na.wrq.com>
+Lines: 68
+User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.1
+MIME-Version: 1.0
+Content-Type: text/plain; charset=us-ascii
+Date: Mon, 12 Nov 2001 22:33:35 GMT
+NNTP-Posting-Host: 150.215.90.102
+X-Complaints-To: abuse@verio.net
+X-Trace: sea-read.news.verio.net 1005604415 150.215.90.102 (Mon, 12 Nov 2001 22:33:35 GMT)
+NNTP-Posting-Date: Mon, 12 Nov 2001 22:33:35 GMT
+Organization: Verio
+Xref: reznor.larc.nasa.gov comp.emacs:70829
+
+Bil Kleb <W.L.Kleb@LaRC.NASA.Gov> writes:
+
+>So, I have a mode that executes a command on the
+>current buffer, and displays the resulting output
+>in another buffer (with possibly some error messages
+>which include line numbers in the original buffer).
+>
+>What I would like to have now is a function which
+>scans the output buffer for errors (doing a regex
+>pattern match?), and recenters the original buffer
+>on the first error line indicated by the output buffer.
+>(Auctex mode has a similar feature, but the code
+>is much too involved for this newbie lisp brain to
+>effectively decipher.)
+>
+>Any suggestions on references to search, keywords to
+>use during a search, etc.?
+>
+>TIA,
+>--
+>bil <http://abweb.larc.nasa.gov/~kleb/>
+
+Here's a quick kludge for this, if you don't want to try to adapt
+compilation mode.  It's kludgey, but if you're lucky, some of the gurus
+will give you (and me) pointers on how to make it less so.
+
+
+(defvar bk-error-buffer
+  "*error-buffer*"
+  "Buffer name for error messages used by `bk-next-error'")
+
+(defvar bk-error-message-regexp
+  "error at line \\([0-9]+\\)"
+  "Regular expression used by `bk-next-error' to find error messages.
+The sub-expression between the first capturing parens must be the line
+number where the error occured")
+
+
+(defun bk-next-error ()
+  "Goto line in current buffer indicated by next error message in `bk-error-buffer'
+
+Assumes that the point is positioned before the first occurance of
+`bk-error-message-regexp' in the `bk-error-buffer' before the first
+call to this function.
+
+See also `bk-error-message-regexp' `bk-error-buffer'"
+  
+  (interactive)
+  (let ((error-line-number))
+    (save-current-buffer
+      (set-buffer (or (get-buffer bk-error-buffer)
+                      (error
+                       (concat
+                        "Can't find the error buffer: "
+                        bk-error-buffer))))
+      (if (re-search-forward bk-error-message-regexp nil t)
+          (progn
+            (setq error-line-number
+                  (string-to-number
+                   (buffer-substring (match-beginning 1)
+                                     (match-end 1))))
+            (goto-char (1+ (match-end 1))))))
+    (if error-line-number
+        (goto-line error-line-number)
+      (message "No more errors"))))
+
+-- 
+Mike

data/utils/funit-generic-mode.el

@@ -0,0 +1,22 @@
+;; Make a generic-mode for fUnit files:
+(require 'generic)
+(define-generic-mode 'funit-generic-mode
+   (list ?!)
+   (list
+    "test_suite"
+    "end test_suite"
+    "test"
+    "end test"
+    "setup"
+    "end setup"
+    "teardown"
+    "end teardown"
+   )
+   '(("\\(Assert_False\\)"		1	'font-lock-function-name-face)
+     ("\\(Assert_True\\)"		1	'font-lock-function-name-face)
+     ("\\(Assert_Equal_Within\\)"	1	'font-lock-function-name-face)
+     ("\\(Assert_Equal\\)"		1	'font-lock-function-name-face)
+     ("\\(Assert_Real_Equal\\)"	1	'font-lock-function-name-face))
+   (list "\\.fun\\'")
+   nil
+   "Generic mode for fUnit files.")

data/utils/funit-mode.el

@@ -0,0 +1,113 @@
+;; 'funit-mode.el' - a derived major mode for editing fUnit files
+;;
+;; INSTALLATION:
+;;
+;; 1) Copy 'funit-mode.el' to the system site-lisp directory, e.g.,
+;;
+;;   /usr/share/emacs/site-lisp
+;;
+;; or, if you do not have root permission, somewhere local
+;; and set the load-path search variable in your ~/.emacs file
+;; accordingly, e.g.,
+;;
+;;  (setq load-path (append load-path '("~/lisp")))
+;;
+;; 2) To automatically activate funit-mode when visiting files,
+;; add the following lines to your ~/.emacs file:
+;;
+;;  (autoload 'funit-mode "funit-mode"
+;;     "Mode for editing fUnit files.")
+;;  (setq auto-mode-alist
+;;     (cons '("\\.fun$" . funit-mode) auto-mode-alist))
+
+(define-derived-mode funit-mode
+  f90-mode  "fUnit"
+  "Major mode for fUnit files (derived from F90 mode).\n\n
+  \\{funit-mode-map}"
+  (interactive)
+  (message "fUnit mode.")
+)
+
+;; add some new font-locks to f90's extensive list
+(font-lock-add-keywords 'funit-mode
+ '(("\\<Assert_False\\>"	. font-lock-function-name-face)
+   ("\\<Assert_Equal\\>"	. font-lock-function-name-face)
+   ("\\<Assert_Real_Equal\\>"	. font-lock-function-name-face)
+   ("\\<Assert_True\\>"		. font-lock-function-name-face)
+   ("\\<Assert_Equal_Within\\>"	. font-lock-function-name-face)
+   ("\\<test_suite\\>"		. font-lock-builtin-face)
+   ("\\<end test_suite\\>"	. font-lock-builtin-face)
+   ("\\<test\\>"		. font-lock-builtin-face)
+   ("\\<end test\\>"		. font-lock-builtin-face)
+   ("\\<teardown\\>"		. font-lock-builtin-face)
+   ("\\<end teardown\\>"	. font-lock-builtin-face)
+   ("\\<setup\\>"		. font-lock-builtin-face)
+   ("\\<end setup\\>"		. font-lock-builtin-face))
+)
+
+(defvar funit-buffer-command "funit"
+  "Shell command used by the \\[funit-test-buffer] function.")
+
+;;(defvar compilation-buffer-name-function "* fUnit output *")
+
+;; run fUnit on the current buffer:
+(defun funit-test-buffer ()
+  "Excute \\[funit-buffer-command] on the file associated
+   with the current buffer."
+  (interactive)
+;  (compile funit-buffer-command);; (file-name-nondirectory buffer-file-name)))
+  (save-buffer)
+  (shell-command-on-region (point-min) (point-max) funit-buffer-command funit-error-buffer)
+)
+
+;; key-binding for running fUnit on the current buffer
+(define-key funit-mode-map "\C-c\C-c" 'funit-test-buffer)
+
+;; add fUnit error regex to compilation mode:
+;;   blah, blah, blak [FluxFunctions.fun:34]
+;(require 'compile)
+;(setq compilation-error-regexp-alist
+;      (cons '("\\[\\(.+\\):\\([0-9]+\\)\\]" 1 2) compilation-error-regexp-alist)
+;)
+
+(defvar funit-error-buffer
+  "*fUnit output-buffer*"
+  "Buffer name for error messages used by `funit-next-error'")
+
+(defvar funit-error-message-regexp
+  "\\[.+:\\([0-9]+\\)\\]"
+  "Regular expression used by `funit-next-error' to find error messages.
+The sub-expression between the first capturing parens must be the line
+number where the error occured")
+
+(defun funit-next-error ()
+  "Goto line in current buffer indicated by next error message in `funit-error-buffer'
+
+Assumes that the point is positioned before the first occurance of
+`funit-error-message-regexp' in the `funit-error-buffer' before the first
+call to this function.
+
+See also `funit-error-message-regexp' `funit-error-buffer'"
+  
+  (interactive)
+  (let ((error-line-number))
+    (save-current-buffer
+      (set-buffer (or (get-buffer funit-error-buffer)
+                      (error
+                       (concat
+                        "Can't find the error buffer: "
+                        funit-error-buffer))))
+      (if (re-search-forward funit-error-message-regexp nil t)
+          (progn
+            (setq error-line-number
+                  (string-to-number
+                   (buffer-substring (match-beginning 1)
+                                     (match-end 1))))
+            (goto-char (1+ (match-end 1))))))
+    (if error-line-number
+        (goto-line error-line-number)
+      (message "No more errors"))))
+
+(provide 'funit-mode)
+
+;; end of 'funit-mode.el'

metadata

@@ -0,0 +1,118 @@
+--- !ruby/object:Gem::Specification
+name: funit-12
+version: !ruby/object:Gem::Version
+  version: 0.12.1
+platform: ruby
+authors:
+- Karen Bibb
+- Bil Kleb
+- Beth Lee-Rausch
+- Mike Park
+- Bill Wood
+- Kyle Thompson
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-01-19 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: fortran_dependencies
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 1.1.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 1.1.0
+- !ruby/object:Gem::Dependency
+  name: hoe
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 2.3.3
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: 2.3.3
+description: 'FUnit is a unit testing framework for Fortran.  Unit tests are written
+  as Fortran fragments that use a small set of testing-specific keywords and functions.  FUnit
+  transforms these fragments into valid Fortran code, compiles, links, and runs them
+  against the code under test.  FUnit is {opinionated software}[http://www.oreillynet.com/pub/a/network/2005/08/30/ruby-rails-david-heinemeier-hansson.html],
+  which values convention over configuration. Specifically, FUnit requires,  * a Fortran
+  95 compiler, * tests to be stored along side the code under test, and * test files
+  to be named appropriately. (Note: this has been forked from the original funit gem,
+  due to issues with access to original gem)'
+email: nasarb-developers@rubyforge.org
+executables:
+- funit-12
+extensions: []
+extra_rdoc_files:
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+files:
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+- bin/funit-12
+- examples/CFD/FluxFunctions.f90
+- examples/CFD/FluxFunctions.fun
+- examples/CFD/Gammas.f90
+- examples/CFD/GasModel.f90
+- examples/CFD/GasModel.fun
+- examples/ReadData/time_series_data.f90
+- examples/ReadData/time_series_data.fun
+- examples/StopWatch/StopWatch.f90
+- examples/StopWatch/StopWatch.fun
+- lib/funit.rb
+- lib/funit/assertions.rb
+- lib/funit/c_tools.rb
+- lib/funit/compiler.rb
+- lib/funit/functions.rb
+- lib/funit/testsuite.rb
+- pitch/slides.tex
+- test/test_compiler.rb
+- test/test_functions.rb
+- test/test_funit.rb
+- test/test_testsuite.rb
+- utils/errorFinder.el
+- utils/funit-generic-mode.el
+- utils/funit-mode.el
+homepage: http://rubyforge.org/projects/nasarb
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options:
+- --main
+- README.txt
+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:
+- A Fortran compiler.
+rubyforge_project: nasarb
+rubygems_version: 2.4.8
+signing_key: 
+specification_version: 2
+summary: FUnit is a unit testing framework for Fortran
+test_files: []