funit-12 0.12.1

data/lib/funit/assertions.rb

@@ -0,0 +1,125 @@
+
+module Funit
+  
+  ##
+  # Fortran assertion macro definitions
+
+  module Assertions
+
+    ASSERTION_PATTERN =
+     /^\s*?(assert_(array_equal|real_equal|false|true|equal_within|equal))\(.*\)/i
+
+    def assert_true(line)
+      line.match(/\((.+)\)/)
+      @type = 'Assert_True'
+      @condition = ".not.(#$1)"
+      @message = "\"#$1 is not true\""
+      syntax_error("invalid body for #@type",@suite_name) unless $1=~/\S+/
+      write_assert
+    end
+
+    def assert_false(line)
+      line.match(/\((.+)\)/)
+      @type = 'Assert_False'
+      @condition = "#$1"
+      @message = "\"#$1 is not false\""
+      syntax_error("invalid body for #@type",@suite_name) unless $1=~/\S+/
+      write_assert
+    end
+
+    def assert_real_equal(line)
+      line.match(/\((.*)\)/)
+      expected, actual = *(get_args($1))
+      @type = 'Assert_Real_Equal'
+      @condition = ".not.( (#{expected} &\n        +2*spacing(real(#{expected})) ) &\n        .ge. &\n        (#{actual}) &\n            .and. &\n     (#{expected} &\n      -2*spacing(real(#{expected})) ) &\n      .le. &\n       (#{actual}) )"
+      @message = "\"#{actual} (\", &\n #{actual}, &\n  \") is not\", &\n #{expected},\&\n \"within\", &\n  2*spacing(real(#{expected}))"
+      syntax_error("invalid body for #@type",@suite_name) unless $&
+      write_assert
+    end
+
+    def assert_equal_within(line)
+      line.match(/\((.*)\)/)
+      expected, actual, tolerance = *(get_args($1))
+      @type = 'Assert_Equal_Within'
+      @condition = ".not.((#{actual} &\n     +#{tolerance}) &\n     .ge. &\n     (#{expected}) &\n             .and. &\n     (#{actual} &\n     -#{tolerance}) &\n     .le. &\n     (#{expected}) )"
+      @message = "\"#{expected} (\",#{expected},\") is not\", &\n #{actual},\"within\",#{tolerance}"
+      syntax_error("invalid body for #@type",@suite_name) unless $&
+      write_assert
+    end
+
+    def assert_equal(line)
+      line.match(/\((\w+\(.*\)|[^,]+),(.+)\)/)
+      @type = 'Assert_Equal'
+      @condition = ".not.(#$1==#$2)"
+      @message = "\"#$1 (\",#$1,\") is not\", #$2"
+      syntax_error("invalid body for #@type",@suite_name) unless $&
+      write_assert
+    end
+    
+    def assert_array_equal(line)
+      line.match(/\((\w+),(\w+)\)/)
+      @type = 'Assert_Array_Equal'
+      @condition = ".not. all(#$1==#$2)"
+      @message = "\"array #$1 is not #$2\""
+      syntax_error("invalid body for #@type",@suite_name) unless $&
+      write_assert
+    end
+    
+    ##
+    # An argument scanner thanks to James Edward Gray II
+    # by way of ruby-talk mailing list.
+
+    def get_args(string)
+      scanner = ::StringScanner.new(string)
+      result  = scanner.eos? ? [] : ['']
+      paren_depth = 0
+      until scanner.eos?
+        if scanner.scan(/[^(),]+/)
+          # do nothing--we found the part of the argument we need to add
+        elsif scanner.scan(/\(/)
+          paren_depth += 1
+        elsif scanner.scan(/\)/)
+          paren_depth -= 1
+        elsif scanner.scan(/,\s*/) and paren_depth.zero?
+          result << ''
+          next
+        end
+        result.last << scanner.matched
+      end
+      result
+    end
+    
+    ##
+    # Translate the assertion to Fortran.
+    
+    def write_assert
+      <<-OUTPUT
+  ! #@type assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (#@condition) then
+      print *, " *#@type failed* in test #@test_name &
+              &[#{@suite_name}.fun:#{@line_number.to_s}]"
+      print *, "  ", #@message
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+      OUTPUT
+    end
+
+  end
+end
+
+#--
+# Copyright 2006-2007 United States Government as represented by
+# NASA Langley Research Center. No copyright is claimed in
+# the United States under Title 17, U.S. Code. All Other Rights
+# Reserved.
+#
+# This file is governed by the NASA Open Source Agreement.
+# See License.txt for details.
+#++

data/lib/funit/c_tools.rb

@@ -0,0 +1,205 @@
+module Funit
+  class C_compile
+    def initialize
+      check_c_compiler
+      @libraries = {}
+    end
+   
+    def check_c_compiler
+      if(ENV['CXX'].nil?) then
+        puts <<-EOF
+        
+          You have not specified a C++ compiler. Please specify a compiler via the $(CXX) environment variable.
+          
+          In bash, for example:
+            
+            export CXX="g++"
+  
+        EOF
+      elsif(ENV['CC'].nil?) then
+        puts <<-EOF
+        
+          You have not specified a C compiler. Please specify a compiler via the $(CC) environment variable.
+          
+          In bash, for example:
+            
+            export CC="gcc"
+            
+        EOF
+      exit
+      end
+    end
+     
+    def compile_library(dir)
+      puts "building: #{dir}"
+      Dir.chdir(dir) do
+        static_lib = make_objs
+        @libraries[dir]=static_lib.match(/lib(\w+)\.a/).captures.join
+      end
+    end
+    
+    def make_objs(dir=Dir.getwd)
+      if File.exist?("Makefile.am")
+        sources = parse_automake_file
+        static_library = sources[0]
+        File.open("makeTestRunner", "w") {|file| file.puts write_custom_c_makefile(sources)}
+      else
+				static_library = "lib#{File.basename(Dir.getwd)}.a"
+        File.open("makeTestRunner", "w") {|file| file.puts write_generic_c_makefile(static_library)}
+      end
+      compile = "make -f makeTestRunner"
+      raise "Compile failed in #{dir}." unless system compile
+      static_library
+    end
+   
+    def parse_automake_file
+      sources = []
+      lines = IO.readlines("Makefile.am")
+      while line = lines.shift
+        sources << $1 if line.match(/^\s*lib_LIBRARIES\s*=\s*(\w+\.a)/)
+        if line.match(/^\s*\w+_SOURCES\s*=/)
+          sources << line.scan(/\w+\.cpp/)
+          while line.match(/\\\s*$/)
+            line = lines.shift
+            sources << line.scan(/(\w+\.cpp)|(\w+\.c)/)
+          end
+        end
+      end
+      sources.uniq.flatten.compact
+    end
+   
+    def print_linker_flags
+      output_string = ''
+      @libraries.each do |k,v|
+        output_string += " -L#{k} -l#{v}"
+      end
+      output_string += " -lstdc++"
+    end
+    
+    def clean_c_code
+      @libraries.keys.each do |k| 
+        Dir.chdir(k) do
+          puts "cleaning C code in #{k}"
+          make_clean = "make -f makeTestRunner clean"
+          system make_clean
+          FileUtils.rm "makeTestRunner"
+        end
+      end
+    end
+     
+    def write_generic_c_makefile(library)
+      c_makefile = %Q{
+      # makefile to compile c++ code
+      # Add .d to Make's recognized suffixes.
+      SUFFIXES += .d
+      
+      #Archive command and options 
+      AR = ar
+      AR_OPTS = cru
+       
+      LIBRARY = #{library}
+       
+      #We don't need to clean up when we're making these targets
+      NODEPS:=clean tags svn
+      #Find all the C++ files in this directory
+      SOURCES:=$(shell find . -name "*.cpp")
+      SOURCES+=$(shell find . -name "*.c")
+      
+      #These are the dependency files, which make will clean up after it creates them
+      CFILES:=$(SOURCES:.cpp=.c)
+      DEPFILES:=$(CFILES:.c=.d)
+   
+      OBJS:=$(CFILES:.c=.o)
+      
+      all: $(LIBRARY)
+      
+      #Rule to create library archive 
+      $(LIBRARY): $(OBJS)
+      \t$(AR) $(AR_OPTS) $@ $^
+    
+      #Don't create dependencies when we're cleaning, for instance
+      ifeq (0, $(words $(findstring $(MAKECMDGOALS), $(NODEPS))))
+          #Chances are, these files don't exist.  GMake will create them and
+          #clean up automatically afterwards
+          -include $(DEPFILES)
+      endif
+    
+      #This is the rule for creating the C++ dependency files
+      %.d: %.cpp
+      \t$(CXX) $(CXXFLAGS) -MM -MT '$(patsubst %.cpp,%.o,$<)' $< -MF $@
+      
+      #This is the rule for creating the C dependency files
+      %.d: %.c
+      \t$(CC) $(CFLAGS) -MM -MT '$(patsubst %.c,%.o,$<)' $< -MF $@
+      
+      #This rule does the compilation for C++ files
+      %.o: %.cpp %.d %.h
+      \t$(CXX) $(CXXFLAGS) -o $@ -c $<
+      
+      #This rule does the compilation for C files
+      %.o: %.c %.d %.h
+      \t$(CC) $(CFLAGS) -o $@ -c $<
+      
+      clean:
+      \trm -rf *.o *.d *.a
+    
+      }.gsub!(/^      /,'')
+    end
+    
+    def write_custom_c_makefile(sources)
+      library = sources.shift
+      source_files = sources.join(" ")
+      c_makefile = %Q{
+      # makefile to compile c++ code
+      # Add .d to Make's recognized suffixes.
+      SUFFIXES += .d
+ 
+      #Archive command and options 
+      AR = ar
+      AR_OPTS = cru
+       
+      LIBRARY = #{library}
+       
+      SOURCES = #{source_files}
+      
+      #These are the dependency files, which make will clean up after it creates them
+      CFILES:=$(SOURCES:.cpp=.c)
+      DEPFILES:=$(CFILES:.c=.d)
+ 
+      OBJS:=$(CFILES:.c=.o)
+      
+      all: $(LIBRARY)
+     
+      #Rule to create library archive 
+      $(LIBRARY): $(OBJS)
+      \t$(AR) $(AR_OPTS) $@ $^
+      
+      #Don't create dependencies when we're cleaning, for instance
+      ifeq (0, $(words $(findstring $(MAKECMDGOALS), $(NODEPS))))
+          #Chances are, these files don't exist.  GMake will create them and
+          #clean up automatically afterwards
+          -include $(DEPFILES)
+      endif
+    
+      #This is the rule for creating the C++ dependency files
+      %.d: %.cpp
+      \t$(CXX) $(CXXFLAGS) -MM -MT '$(patsubst %.cpp,%.o,$<)' $< -MF $@
+      
+      #This is the rule for creating the C dependency files
+      %.d: %.c
+      \t$(CC) $(CFLAGS) -MM -MT '$(patsubst %.c,%.o,$<)' $< -MF $@
+      
+      #This rule does the compilation for C++ files
+      %.o: %.cpp %.d %.h
+      \t$(CXX) $(CXXFLAGS) -o $@ -c $<
+      
+      #This rule does the compilation for C files
+      %.o: %.c %.d %.h
+      \t$(CC) $(CFLAGS) -o $@ -c $<
+      
+      clean:
+      \trm -rf *.o *.d *.a
+      }.gsub!(/^      /,'')
+    end
+  end
+end

data/lib/funit/compiler.rb

@@ -0,0 +1,33 @@
+module Funit
+
+  ##
+  # Fortran compiler
+
+  class Compiler
+
+    def initialize
+      error_message = <<-COMPILER
+Fortran compiler environment variable 'FC' not set.
+
+For example, if you had the g95 compiler:
+
+      sh: export FC=g95
+     csh: setenv FC g95
+ windows: set FC=C:\\Program Files\\g95
+      COMPILER
+      raise error_message unless ENV['FC']
+    end
+
+  end
+
+end
+
+#--
+# Copyright 2006-2007 United States Government as represented by
+# NASA Langley Research Center. No copyright is claimed in
+# the United States under Title 17, U.S. Code. All Other Rights
+# Reserved.
+#
+# This file is governed by the NASA Open Source Agreement.
+# See License.txt for details.
+#++

data/lib/funit/functions.rb

@@ -0,0 +1,150 @@
+require 'erb'
+
+module Funit
+
+  TEST_RUNNER = ERB.new( %q{
+    ! TestRunner.f90 - runs fUnit test suites
+    !
+    ! <%= File.basename $0 %> generated this file on <%= Time.now %>.
+
+    program TestRunner
+
+      <% test_suites.each do |test_suite| -%>
+      use <%= test_suite %>_fun
+      <% end -%>
+
+      implicit none
+
+      integer, dimension(<%=test_suites.size%>) :: numTests, numAsserts, numAssertsTested, numFailures
+
+      <% test_suites.each_with_index do |test_suite,i| -%>
+      write(*,*)
+      write(*,*) "<%= test_suite %> test suite:"
+      call test_<%= test_suite %> &
+        ( numTests(<%= i+1 %>), numAsserts(<%= i+1 %>), numAssertsTested(<%= i+1 %>), numFailures(<%= i+1 %>) )
+      write(*,1) numAssertsTested(<%= i+1 %>), numAsserts(<%= i+1 %>), &
+        numTests(<%= i+1 %>)-numFailures(<%= i+1 %>), numTests(<%= i+1 %>)
+    1 format('Passed ',i0,' of ',i0,' possible asserts comprising ',i0,' of ',i0,' tests.')
+      <% end -%>
+
+      write(*,*)
+      write(*,'(a)') "==========[ SUMMARY ]=========="
+      <% max_length = test_suites.empty? ? 0 : test_suites.max.length -%>
+      <% test_suites.each_with_index do |test_suite,i| -%>
+      write(*,'(a<%=max_length+2%>)',advance="no") " <%= test_suite %>:"
+      if ( numFailures(<%= i+1 %>) == 0 ) then
+        write(*,*) " passed"
+      else
+        write(*,*) " failed   <<<<<"
+      end if
+      <% end -%>
+      write(*,*)
+
+      if ( sum(numFailures) /= 0 ) stop 1
+
+    end program TestRunner
+    }.gsub(/^    /,''), nil, '-' ) # turn off newlines for <% -%>
+
+  MAKEFILE = ERB.new( %q{
+    # makefile to compile TestRunner.f90
+    #
+    # <%= File.basename $0 %> generated this file on <%= Time.now %>.
+
+    OBJ=<%= required_objects.join(' ') %>
+    LDFLAGS=<%= c_code.print_linker_flags %>
+
+    all:testrunner
+
+    testrunner: $(OBJ)
+    <%= "\t#{ENV['FC']} #{ENV['FCFLAGS']} #{ENV['LDFLAGS']}" %> -o TestRunner $(OBJ) $(LDFLAGS)
+
+    <% file_dependencies.each do |source,dep| -%>
+    <%= "#{source.sub(/\.f90/i,'.o')}: #{source} #{dep.map{ |d| d.sub(/\.f90/i,'.o') }.join(' ')}" %>
+    <%= "\t(cd #{File.dirname(source)}; #{ENV['FC']} #{ENV['FCFLAGS']} #{sourceflag} -c #{File.basename(source)})" %>
+    <% end -%>
+  }.gsub(/^    /,''), nil, '-' ) # turn off newlines for <% -%>
+ 
+  def requested_modules(module_names)
+    if module_names.empty?
+      module_names = Dir["*.fun"].each{ |mod| mod.chomp! ".fun" }
+    end
+    module_names
+  end
+
+  def funit_exists?(module_name)
+    File.exists? "#{module_name}.fun"
+  end
+
+  def parse_command_line
+
+    module_names = requested_modules(ARGV)
+
+    if module_names.empty?
+      raise "   *Error: no test suites found in this directory"
+    end
+
+    module_names.each do |mod|
+      unless funit_exists?(mod) 
+        error_message = <<-FUNIT_DOES_NOT_EXIST
+ Error: could not find test suite #{mod}.fun
+ Test suites available in this directory:
+ #{requested_modules([]).join(' ')}
+
+ Usage: #{File.basename $0} [test names (w/o .fun suffix)]
+        FUNIT_DOES_NOT_EXIST
+        raise error_message
+      end
+    end
+
+  end
+
+  def write_test_runner test_suites
+    File.open("TestRunner.f90", "w") do |file|
+      file.puts TEST_RUNNER.result(binding)
+    end
+  end
+
+  def syntax_error( message, test_suite )
+    raise "\n   *Error: #{message} [#{test_suite}.fun:#$.]\n\n"
+  end
+
+  def warning( message, test_suite )
+    $stderr.puts "\n *Warning: #{message} [#{test_suite}.fun:#$.]"
+  end
+
+  def compile_tests(test_suites,funit_data)
+    prog_source_dirs = funit_data.prog_source_dirs
+    c_code = funit_data.c_code
+    
+    puts "computing dependencies"
+
+    sourceflag = ''
+    if ENV['FSFLAG'] then
+      sourceflag = prog_source_dirs.map{|pd| ENV['FSFLAG']+pd }.join(' ')
+    end
+    dependencies = Fortran::Dependencies.new(:search_paths=>prog_source_dirs)
+
+    puts "locating associated source files and sorting for compilation"
+    dependencies.source_file_dependencies('TestRunner.f90')
+    file_dependencies = dependencies.file_dependencies
+    required_objects = file_dependencies.values.flatten.uniq.map{|s|s.sub(/\.f90/i,'.o')}
+    required_objects << 'TestRunner.o'
+
+    File.open("makeTestRunner", "w") {|file| file.puts MAKEFILE.result(binding)}
+
+    compile = "make -f makeTestRunner"
+
+    raise "Compile failed." unless system compile
+  end
+
+end
+
+#--
+# Copyright 2006-2007 United States Government as represented by
+# NASA Langley Research Center. No copyright is claimed in
+# the United States under Title 17, U.S. Code. All Other Rights
+# Reserved.
+#
+# This file is governed by the NASA Open Source Agreement.
+# See License.txt for details.
+#++