fUnit 0.0.1

data/tests/tc_test_suite.rb

@@ -0,0 +1,82 @@
+$:.unshift File.join( File.dirname(__FILE__), '..', 'lib' )
+require 'test/unit'
+require 'funit/test_suite'
+
+class TestTestSuite < Test::Unit::TestCase
+
+ def setup
+  File.rm_f(*Dir["dummyf90test*"])
+ end 
+
+ def test_nonexistent_FTK_file_is_not_created
+  Funit::TestSuite.new 'dummyf90test'
+  assert !File.exists?("dummyf90testMT.ftk")
+  assert !File.exists?("dummyf90testMT.f90")
+ end
+
+ def create_FTK_file ftkContents
+  File.open('dummyf90test.f90','w') do |f|
+   f.puts "module dummyf90test\nend module dummyf90test"
+  end
+  File.open('dummyf90testMT.ftk','w') do |f|
+   f.puts ftkContents
+  end
+ end
+
+ @@compileCommand = "#{Funit::Compiler.new.name} -c dummyf90test.f90 dummyf90testMT.f90"
+
+ def test_bare_minimum_FTK_file_compiles
+  create_FTK_file ""
+  Funit::TestSuite.new 'dummyf90test'
+  assert system(@@compileCommand)
+ end
+
+ def test_module_variables_allowed
+  create_FTK_file "integer :: a"
+  Funit::TestSuite.new 'dummyf90test'
+  assert system(@@compileCommand)
+ end
+
+ def test_blank_setup_compiles
+  create_FTK_file "beginSetup\nendSetup"
+  Funit::TestSuite.new 'dummyf90test'
+  assert system(@@compileCommand)
+ end
+
+ def test_blank_test_gives_warning
+  create_FTK_file "beginTest bob\nendTest"
+  Funit::TestSuite.new 'dummyf90test'
+  assert system(@@compileCommand)
+ end
+
+ def test_single_assert_test_compiles
+  create_FTK_file "beginTest assertTrue\nIsTrue(.true.)\nendTest"
+  Funit::TestSuite.new 'dummyf90test'
+  assert system(@@compileCommand)
+ end
+
+ def test_matrix_assert_compiles
+  create_FTK_file <<-MATFTK
+ beginTest assertTrue
+  integer :: a(2,2)
+  a = 1
+  IsEqual(a(1,1),1)
+ endTest
+  MATFTK
+  Funit::TestSuite.new 'dummyf90test'
+  puts `cat dummyf90testMT.ftk`
+  puts `cat dummyf90testMT.f90`
+  assert system(@@compileCommand)
+ end
+
+ def test_ignore_commented_test
+  create_FTK_file "XbeginTest bob\nendTest"
+  Funit::TestSuite.new 'dummyf90test'
+  assert_no_match( /Testbob/i, IO.readlines('dummyf90testMT.f90').join )
+ end
+
+ def teardown
+  File.rm_f(*Dir["dummyf90test*"])
+ end 
+
+end

data/tests/ts_funit.rb

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'tc_funit'
+require 'tc_compile'
+require 'tc_test_suite'
+require 'tc_fortran_deps'

metadata

@@ -0,0 +1,85 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: fUnit
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2006-04-05 00:00:00 -04:00
+summary: A Fortran Unit Testing Framework
+require_paths: 
+  - lib
+email: funit-support@rubyforge.org
+homepage: http://funit.rubyforge.org/
+rubyforge_project: funit
+description: 
+autorequire: funit
+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: 
+authors: 
+  - fUnit Team
+files: 
+  - bin/funit
+  - tests/tc_compile.rb
+  - tests/tc_fortran_deps.rb
+  - tests/tc_funit.rb
+  - tests/tc_test_suite.rb
+  - tests/ts_funit.rb
+  - lib/clean
+  - lib/fortran_deps.rb
+  - lib/funit
+  - lib/funit.rb
+  - lib/mklinks
+  - lib/funit/assertions.rb
+  - lib/funit/functions.rb
+  - lib/funit/test_suite.rb
+  - docs/HISTORY
+  - docs/spiel
+  - docs/why
+  - docs/spiel/slides.tex
+  - docs/why/F90testRun
+  - docs/why/F90testRun.ps
+  - docs/why/FluxFunctions.f90
+  - docs/why/FluxFunctions.f90.ps
+  - docs/why/FluxFunctionsTS.f90
+  - docs/why/FluxFunctionsTS.f90.ps
+  - docs/why/FluxFunctionsTS.ftk
+  - docs/why/FluxFunctionsTS.ftk.ps
+  - docs/why/GasModel.f90
+  - docs/why/GasModel.f90.ps
+  - docs/why/GasModelTS+SRC
+  - docs/why/GasModelTS+SRC.ps
+  - docs/why/GasModelTS.f90
+  - docs/why/GasModelTS.f90.ps
+  - docs/why/GasModelTS.ftk
+  - docs/why/GasModelTS.ftk.ps
+  - docs/why/land2
+  - docs/why/landscape
+  - docs/why/portrait
+  - docs/why/TestRunner.f90
+  - docs/why/TestRunner.f90.ps
+  - README
+  - LICENSE
+  - INSTALL
+test_files: 
+  - tests/ts_funit.rb
+rdoc_options: []
+extra_rdoc_files: 
+  - README
+  - LICENSE
+  - INSTALL
+executables: 
+  - funit
+extensions: []
+requirements: []
+dependencies: []