funit 0.9.0

data/test/test_testsuite.rb

@@ -0,0 +1,106 @@
+require 'test/unit'
+require 'funit/testsuite'
+
+class TestTestSuite < Test::Unit::TestCase
+
+  def setup
+    File.rm_f(*Dir["dummyf90test*"])
+  end 
+
+  def teardown
+    File.rm_f(*Dir["dummyf90test*"])
+  end 
+
+  def test_nonexistent_funit_file_is_not_created
+    Funit::TestSuite.new 'dummyf90test'
+    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'
+    assert system(@@compileCommand)
+  end
+
+  def test_module_variables_allowed
+    create_funit_file "integer :: a"
+    Funit::TestSuite.new 'dummyf90test'
+    assert system(@@compileCommand)
+  end
+
+  def test_blank_setup_compiles
+    create_funit_file "beginSetup\nendSetup"
+    Funit::TestSuite.new 'dummyf90test'
+    assert system(@@compileCommand)
+  end
+
+  def test_blank_test_gives_warning
+    create_funit_file "beginTest bob\nendTest"
+    Funit::TestSuite.new 'dummyf90test'
+    assert system(@@compileCommand)
+  end
+
+  def test_single_assert_test_compiles
+    create_funit_file "beginTest assertTrue\nIsTrue(.true.)\nendTest"
+    Funit::TestSuite.new 'dummyf90test'
+    assert system(@@compileCommand)
+  end
+
+  def test_matrix_assert_compiles
+    create_funit_file <<-MATRIX
+ beginTest assertTrue
+  integer :: a(2,2)
+  a = 1
+  IsEqual(1,a(1,1))
+ endTest
+    MATRIX
+    Funit::TestSuite.new 'dummyf90test'
+    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
+  IsRealEqual(1.0,real_var)
+ endTest
+    REALEQUALS
+    Funit::TestSuite.new 'dummyf90test'
+    assert system(@@compileCommand)
+  end
+
+  def test_real_equals_assert_works_with_function
+    create_funit_file <<-REQUALSFUNC
+ beginTest assert_equals_for_function
+  IsRealEqual(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'
+    assert system(@@compileCommand)
+  end
+
+  def test_ignore_commented_test
+    create_funit_file "XbeginTest bob\nendTest"
+    Funit::TestSuite.new 'dummyf90test'
+    assert_no_match( /Testbob/i, IO.readlines('dummyf90test_fun.f90').join )
+  end
+
+end

data/utils/funit-mode.el

@@ -0,0 +1,111 @@
+;; '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
+ '(("\\<IsFalse\\>"		. font-lock-function-name-face)
+   ("\\<IsEqual\\>"		. font-lock-function-name-face)
+   ("\\<IsRealEqual\\>"		. font-lock-function-name-face)
+   ("\\<IsTrue\\>"		. font-lock-function-name-face)
+   ("\\<IsEqualWithin\\>"	. font-lock-function-name-face)
+   ("\\<beginTest\\>"		. font-lock-builtin-face)
+   ("\\<endTest\\>"		. font-lock-builtin-face)
+   ("\\<beginTeardown\\>"	. font-lock-builtin-face)
+   ("\\<endTeardown\\>"		. font-lock-builtin-face)
+   ("\\<beginSetup\\>"		. font-lock-builtin-face)
+   ("\\<endSetup\\>"		. 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,98 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: funit
+version: !ruby/object:Gem::Version 
+  version: 0.9.0
+date: 2007-08-02 00:00:00 -04:00
+summary: A Fortran unit testing framework.
+require_paths: 
+- lib
+email: funit-support@rubyforge.org
+homepage: http://rubyforge.org/projects/funit
+rubyforge_project: nasarb
+description: "== DESCRIPTION:  FUnit is a unit testing framework for Fortran modules.  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 module under test."
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Karen Bibb
+- Bil Kleb
+- Beth Lee-Rausch
+- Mike Park
+- Bill Wood
+files: 
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- bin/funit
+- 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/compiler.rb
+- lib/funit/functions.rb
+- lib/funit/testsuite.rb
+- test/test_compiler.rb
+- test/test_functions.rb
+- test/test_funit.rb
+- test/test_testsuite.rb
+- utils/funit-mode.el
+test_files: 
+- test/test_compiler.rb
+- test/test_testsuite.rb
+- test/test_funit.rb
+- test/test_functions.rb
+rdoc_options: 
+- --main
+- README.txt
+extra_rdoc_files: 
+- History.txt
+- License.txt
+- Manifest.txt
+- README.txt
+executables: 
+- funit
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: fortran
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.0.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.2.2
+    version: