fUnit 0.0.1

data/docs/why/TestRunner.f90.ps

@@ -0,0 +1,511 @@
+%!PS-Adobe-3.0
+%%BoundingBox: 24 24 588 768
+%%Title: Enscript Output
+%%For: Bil Kleb
+%%Creator: GNU enscript 1.6.1
+%%CreationDate: Wed Nov  7 08:24:23 2001
+%%Orientation: Landscape
+%%Pages: (atend)
+%%DocumentMedia: Letter 612 792 0 () ()
+%%DocumentNeededResources: (atend)
+%%EndComments
+%%BeginProlog
+%%BeginResource: procset Enscript-Prolog 1.6 1
+%
+% Procedures.
+%
+
+/_S {	% save current state
+  /_s save def
+} def
+/_R {	% restore from saved state
+  _s restore
+} def
+
+/S {	% showpage protecting gstate
+  gsave
+  showpage
+  grestore
+} bind def
+
+/MF {	% fontname newfontname -> -	make a new encoded font
+  /newfontname exch def
+  /fontname exch def
+
+  /fontdict fontname findfont def
+  /newfont fontdict maxlength dict def
+
+  fontdict {
+    exch
+    dup /FID eq {
+      % skip FID pair
+      pop pop
+    } {
+      % copy to the new font dictionary
+      exch newfont 3 1 roll put
+    } ifelse
+  } forall
+
+  newfont /FontName newfontname put
+
+  % insert only valid encoding vectors
+  encoding_vector length 256 eq {
+    newfont /Encoding encoding_vector put
+  } if
+
+  newfontname newfont definefont pop
+} def
+
+/SF { % fontname width height -> -	set a new font
+  /height exch def
+  /width exch def
+
+  findfont
+  [width 0 0 height 0 0] makefont setfont
+} def
+
+/SUF { % fontname width height -> -	set a new user font
+  /height exch def
+  /width exch def
+
+  /F-gs-user-font MF
+  /F-gs-user-font width height SF
+} def
+
+/M {moveto} bind def
+/s {show} bind def
+
+/Box {	% x y w h -> -			define box path
+  /d_h exch def /d_w exch def /d_y exch def /d_x exch def
+  d_x d_y  moveto
+  d_w 0 rlineto
+  0 d_h rlineto
+  d_w neg 0 rlineto
+  closepath
+} def
+
+/bgs {	% x y height blskip gray str -> -	show string with bg color
+  /str exch def
+  /gray exch def
+  /blskip exch def
+  /height exch def
+  /y exch def
+  /x exch def
+
+  gsave
+    x y blskip sub str stringwidth pop height Box
+    gray setgray
+    fill
+  grestore
+  x y M str s
+} def
+
+% Highlight bars.
+/highlight_bars {	% nlines lineheight output_y_margin gray -> -
+  gsave
+    setgray
+    /ymarg exch def
+    /lineheight exch def
+    /nlines exch def
+
+    % This 2 is just a magic number to sync highlight lines to text.
+    0 d_header_y ymarg sub 2 sub translate
+
+    /cw d_output_w cols div def
+    /nrows d_output_h ymarg 2 mul sub lineheight div cvi def
+
+    % for each column
+    0 1 cols 1 sub {
+      cw mul /xp exch def
+
+      % for each rows
+      0 1 nrows 1 sub {
+        /rn exch def
+        rn lineheight mul neg /yp exch def
+        rn nlines idiv 2 mod 0 eq {
+	  % Draw highlight bar.  4 is just a magic indentation.
+	  xp 4 add yp cw 8 sub lineheight neg Box fill
+	} if
+      } for
+    } for
+
+  grestore
+} def
+
+% Line highlight bar.
+/line_highlight {	% x y width height gray -> -
+  gsave
+    /gray exch def
+    Box gray setgray fill
+  grestore
+} def
+
+% Column separator lines.
+/column_lines {
+  gsave
+    .1 setlinewidth
+    0 d_footer_h translate
+    /cw d_output_w cols div def
+    1 1 cols 1 sub {
+      cw mul 0 moveto
+      0 d_output_h rlineto stroke
+    } for
+  grestore
+} def
+
+% Column borders.
+/column_borders {
+  gsave
+    .1 setlinewidth
+    0 d_footer_h moveto
+    0 d_output_h rlineto
+    d_output_w 0 rlineto
+    0 d_output_h neg rlineto
+    closepath stroke
+  grestore
+} def
+
+% Do the actual underlay drawing
+/draw_underlay {
+  ul_style 0 eq {
+    ul_str true charpath stroke
+  } {
+    ul_str show
+  } ifelse
+} def
+
+% Underlay
+/underlay {	% - -> -
+  gsave
+    0 d_page_h translate
+    d_page_h neg d_page_w atan rotate
+
+    ul_gray setgray
+    ul_font setfont
+    /dw d_page_h dup mul d_page_w dup mul add sqrt def
+    ul_str stringwidth pop dw exch sub 2 div ul_h_ptsize -2 div moveto
+    draw_underlay
+  grestore
+} def
+
+/user_underlay {	% - -> -
+  gsave
+    ul_x ul_y translate
+    ul_angle rotate
+    ul_gray setgray
+    ul_font setfont
+    0 0 ul_h_ptsize 2 div sub moveto
+    draw_underlay
+  grestore
+} def
+
+% Page prefeed
+/page_prefeed {		% bool -> -
+  statusdict /prefeed known {
+    statusdict exch /prefeed exch put
+  } {
+    pop
+  } ifelse
+} def
+
+% Wrapped line markers
+/wrapped_line_mark {	% x y charwith charheight type -> -
+  /type exch def
+  /h exch def
+  /w exch def
+  /y exch def
+  /x exch def
+
+  type 2 eq {
+    % Black boxes (like TeX does)
+    gsave
+      0 setlinewidth
+      x w 4 div add y M
+      0 h rlineto w 2 div 0 rlineto 0 h neg rlineto
+      closepath fill
+    grestore
+  } {
+    type 3 eq {
+      % Small arrows
+      gsave
+        .2 setlinewidth
+        x w 2 div add y h 2 div add M
+        w 4 div 0 rlineto
+        x w 4 div add y lineto stroke
+
+        x w 4 div add w 8 div add y h 4 div add M
+        x w 4 div add y lineto
+	w 4 div h 8 div rlineto stroke
+      grestore
+    } {
+      % do nothing
+    } ifelse
+  } ifelse
+} def
+
+% EPSF import.
+
+/BeginEPSF {
+  /b4_Inc_state save def    		% Save state for cleanup
+  /dict_count countdictstack def	% Count objects on dict stack
+  /op_count count 1 sub def		% Count objects on operand stack
+  userdict begin
+  /showpage { } def
+  0 setgray 0 setlinecap
+  1 setlinewidth 0 setlinejoin
+  10 setmiterlimit [ ] 0 setdash newpath
+  /languagelevel where {
+    pop languagelevel
+    1 ne {
+      false setstrokeadjust false setoverprint
+    } if
+  } if
+} bind def
+
+/EndEPSF {
+  count op_count sub { pos } repeat	% Clean up stacks
+  countdictstack dict_count sub { end } repeat
+  b4_Inc_state restore
+} bind def
+
+% Check PostScript language level.
+/languagelevel where {
+  pop /gs_languagelevel languagelevel def
+} {
+  /gs_languagelevel 1 def
+} ifelse
+%%EndResource
+%%BeginResource: procset Enscript-Encoding-88591 1.6 1
+/encoding_vector [
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/space        	/exclam       	/quotedbl     	/numbersign   	
+/dollar       	/percent      	/ampersand    	/quoteright   	
+/parenleft    	/parenright   	/asterisk     	/plus         	
+/comma        	/hyphen       	/period       	/slash        	
+/zero         	/one          	/two          	/three        	
+/four         	/five         	/six          	/seven        	
+/eight        	/nine         	/colon        	/semicolon    	
+/less         	/equal        	/greater      	/question     	
+/at           	/A            	/B            	/C            	
+/D            	/E            	/F            	/G            	
+/H            	/I            	/J            	/K            	
+/L            	/M            	/N            	/O            	
+/P            	/Q            	/R            	/S            	
+/T            	/U            	/V            	/W            	
+/X            	/Y            	/Z            	/bracketleft  	
+/backslash    	/bracketright 	/asciicircum  	/underscore   	
+/quoteleft    	/a            	/b            	/c            	
+/d            	/e            	/f            	/g            	
+/h            	/i            	/j            	/k            	
+/l            	/m            	/n            	/o            	
+/p            	/q            	/r            	/s            	
+/t            	/u            	/v            	/w            	
+/x            	/y            	/z            	/braceleft    	
+/bar          	/braceright   	/tilde        	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/.notdef      	/.notdef      	/.notdef      	/.notdef      	
+/space        	/exclamdown   	/cent         	/sterling     	
+/currency     	/yen          	/brokenbar    	/section      	
+/dieresis     	/copyright    	/ordfeminine  	/guillemotleft	
+/logicalnot   	/hyphen       	/registered   	/macron       	
+/degree       	/plusminus    	/twosuperior  	/threesuperior	
+/acute        	/mu           	/paragraph    	/bullet       	
+/cedilla      	/onesuperior  	/ordmasculine 	/guillemotright	
+/onequarter   	/onehalf      	/threequarters	/questiondown 	
+/Agrave       	/Aacute       	/Acircumflex  	/Atilde       	
+/Adieresis    	/Aring        	/AE           	/Ccedilla     	
+/Egrave       	/Eacute       	/Ecircumflex  	/Edieresis    	
+/Igrave       	/Iacute       	/Icircumflex  	/Idieresis    	
+/Eth          	/Ntilde       	/Ograve       	/Oacute       	
+/Ocircumflex  	/Otilde       	/Odieresis    	/multiply     	
+/Oslash       	/Ugrave       	/Uacute       	/Ucircumflex  	
+/Udieresis    	/Yacute       	/Thorn        	/germandbls   	
+/agrave       	/aacute       	/acircumflex  	/atilde       	
+/adieresis    	/aring        	/ae           	/ccedilla     	
+/egrave       	/eacute       	/ecircumflex  	/edieresis    	
+/igrave       	/iacute       	/icircumflex  	/idieresis    	
+/eth          	/ntilde       	/ograve       	/oacute       	
+/ocircumflex  	/otilde       	/odieresis    	/divide       	
+/oslash       	/ugrave       	/uacute       	/ucircumflex  	
+/udieresis    	/yacute       	/thorn        	/ydieresis    	
+] def
+%%EndResource
+%%EndProlog
+%%BeginSetup
+%%IncludeResource: font Times-Roman
+%%IncludeResource: font Courier-Bold
+/HFpt_w 10 def
+/HFpt_h 10 def
+/Courier-Bold /HF-gs-font MF
+/HF /HF-gs-font findfont [HFpt_w 0 0 HFpt_h 0 0] makefont def
+/Times-Roman /F-gs-font MF
+/F-gs-font 14 14 SF
+/#copies 1 def
+% Pagedevice definitions:
+gs_languagelevel 1 gt {
+  <<
+    /PageSize [612 792] 
+  >> setpagedevice
+} if
+%%BeginResource: procset Enscript-Header-enscript 1.6 1
+%%IncludeResource: font Times-Bold
+
+% Fonts.
+/Times-Bold /HeaderFont-Bold MF
+/HeaderDateF /HeaderFont-Bold findfont 12 scalefont def
+
+/Times-Roman /HeaderFont-Times MF
+/HeaderHDRF /HeaderFont-Times findfont 14 scalefont def
+
+/HeaderPageNumF /Helvetica-Bold findfont 28.8 scalefont def
+
+/do_header {	% print enscript header
+  gsave
+    d_header_x d_header_y translate
+
+    % light bar
+    0 0 d_header_w d_header_h 2 div Box
+    .95 setgray fill
+
+    % dark gray boxes
+    /dbw d_header_h 2 mul def	% dark box width
+    /dbc .7 def			% dark box color
+
+    % left dark box.
+    0 0 dbw d_header_h Box
+    dbc setgray fill
+
+    0 setgray 
+    HeaderDateF setfont
+    moddatestr dup stringwidth pop dbw exch sub 2 div 
+    d_header_h 2 div 2 add moveto show
+    modtimestr dup stringwidth pop dbw exch sub 2 div 
+    d_header_h 5 div moveto show
+
+    % right dark box
+    d_header_w dbw sub 0 dbw d_header_h Box
+    dbc setgray fill
+
+    HeaderPageNumF setfont
+    1 setgray
+    pagenumstr dup
+    stringwidth pop dbw exch sub 2 div d_header_w dbw sub add
+    d_header_h .2 mul moveto show
+
+    % filename
+    0 setgray 
+    HeaderHDRF setfont
+    d_header_w fname stringwidth pop sub 2 div d_header_h 8 div moveto
+    fname show
+
+    % user supplied header string.
+    user_header_p {
+      /h d_header_h 8 div 5 mul def
+
+      % Implement strict enscript compatibility.
+      user_header_center_str () eq user_header_right_str () eq and {
+        d_header_w user_header_left_str stringwidth pop sub 2 div 
+        h moveto user_header_left_str show
+      } {
+        dbw 5 add h moveto user_header_left_str show
+
+        d_header_w user_header_center_str stringwidth pop sub 2 div 
+        h moveto user_header_center_str show
+
+	d_header_w dbw sub 5 sub user_header_right_str stringwidth pop
+	sub h moveto user_header_right_str show
+      } ifelse
+    } if
+
+  grestore
+} def
+%%EndResource
+/d_page_w 744 def
+/d_page_h 564 def
+/d_header_x 0 def
+/d_header_y 528 def
+/d_header_w 744 def
+/d_header_h 36 def
+/d_footer_x 0 def
+/d_footer_y 0 def
+/d_footer_w 744 def
+/d_footer_h 0 def
+/d_output_w 744 def
+/d_output_h 528 def
+/cols 1 def
+%%EndSetup
+%%Page: (1) 1
+%%BeginPageSetup
+_S
+90 rotate
+24 -588 translate
+/pagenum 1 def
+/fname (TestRunner.f90) def
+/fdir () def
+/ftail (TestRunner.f90) def
+% User defined strings:
+/pagenumstr (1) def
+/moddatestr (11/07/01) def
+/modtimestr (08:09:52) def
+/user_header_p false def
+%%EndPageSetup
+do_header
+5 511 M
+(! TestRunner.f90 - runs Fortran mobility test suites) s
+5 496 M
+(!) s
+5 481 M
+(! [Dynamically generated by FTKtest Ruby script Wed Nov 07 07:53:00 EST 2001.]) s
+5 451 M
+(program TestRunner) s
+5 421 M
+( use GasModelTS) s
+5 406 M
+( use FluxFunctionsTS) s
+5 376 M
+( implicit none) s
+5 346 M
+( integer :: numTests, numAsserts, numAssertsTested, numFailures) s
+5 316 M
+( print *, "") s
+5 301 M
+( print *, "GasModel test suite:") s
+5 286 M
+( call TSGasModel\( numTests, numAsserts, numAssertsTested, numFailures \)) s
+5 271 M
+( print *, "Completed", numTests-numFailures, "of", numTests, &) s
+5 256 M
+(  "tests comprising", numAssertsTested, "of", numAsserts, "possible asserts.") s
+5 226 M
+( print *, "") s
+5 211 M
+( print *, "FluxFunctions test suite:") s
+5 196 M
+( call TSFluxFunctions\( numTests, numAsserts, numAssertsTested, numFailures \)) s
+5 181 M
+( print *, "Completed", numTests-numFailures, "of", numTests, &) s
+5 166 M
+(  "tests comprising", numAssertsTested, "of", numAsserts, "possible asserts.") s
+5 136 M
+( print *, "") s
+5 106 M
+(end program TestRunner) s
+_R
+S
+%%Trailer
+%%Pages: 1
+%%DocumentNeededResources: font Times-Roman Courier-Bold Times-Bold 
+%%EOF

data/docs/why/land2

@@ -0,0 +1,2 @@
+#!/bin/csh
+enscript -r2cGfTimes-Roman14 --color -o $1.ps $1

data/docs/why/landscape

@@ -0,0 +1,2 @@
+#!/bin/csh
+enscript -rGfTimes-Roman14 --color -o $1.ps $1

data/docs/why/portrait

@@ -0,0 +1,2 @@
+#!/bin/csh
+enscript -GfTimes-Roman14 --color -o $1.ps $1

data/lib/clean

@@ -0,0 +1 @@
+rm -rf *TS.f90 *.o *.mod TestRunner*

data/lib/fortran_deps.rb

@@ -0,0 +1,109 @@
+# This scripts finds dependencies for f90 code
+
+raise "Need Ruby version >= 1.8, current using #{VERSION}" unless String.instance_methods.include? "match"
+
+class Depend
+
+ attr_reader :file_dependencies, :source_files
+
+ def initialize( searchPath = %w[ ../lib . ] )
+  @parsed = Array.new
+  @hash = build_hash_of_modules_in_files_within searchPath
+  @file_dependencies = Hash.new
+  @source_files = Array.new
+ end
+
+ def modules_used_in( file )
+  modules = IO.readlines( file ).map do |line|
+   $1.downcase if line.match( /^\s*use\s+(\w+)/i )
+  end.uniq.compact
+ end
+
+ def modules_defined_in( file )
+  modules = IO.readlines( file ).map do |line| 
+   $1.downcase if line.match( /^\s*module\s+(\w+)/i )
+  end.uniq.compact
+ end
+
+ def build_dictionary_of_modules_in( files )
+  file_containing_module = Hash.new
+  files.each do |file|
+   modules_defined_in( file ).each{ |mod| file_containing_module[mod]=file }
+  end
+  file_containing_module
+ end
+
+ def fortran_files_within( search_path = %w[ ../lib . ] )
+  source = search_path.map{ |path| Dir[path+"/*.[fF]90"] }
+  source.flatten!.uniq!
+  source.delete_if{ |file| File.lstat(file).symlink? }
+  source.delete_if{ |file| file.match(/lmpi_module_template.F90/) }
+ end
+
+ def build_hash_of_modules_in_files_within( searchPath = %w[../lib .] )
+  build_dictionary_of_modules_in( fortran_files_within( searchPath ) )
+ end
+
+ def makefile_dependency_line( source )
+  realSource = source.sub(/PHYSICS_DUMMY/,'PHYSICS_MODULES')# What's this?
+  sourceNoPath = File.basename source
+  @source_files.push sourceNoPath.gsub(%r|^.*/|,'')
+  output = ''
+  if (File.expand_path(source) != File.expand_path(sourceNoPath))
+   output += sourceNoPath+ ": " + realSource + "\n"
+   output += "\tln -sf "+realSource+" .\n"
+  end
+  output += source.gsub(/\.(f|F)90$/, ".o").gsub(%r|^.*/|,"" ) +
+            ": " + source.gsub(%r|^.*/|,"" ) 
+  modules_used_in( source ).each do |use|
+   unless @hash[use]
+    unless ( use=~/f90_unix/ || use=~/nas_system/ )
+     $stderr.puts "Warning: unable to locate module #{use} used in #{source}." \
+     if $DEBUG
+    end
+    next
+   end
+   output = output + " \\\n " +
+            @hash[use].gsub(/\.(f|F)90$/, ".o").gsub(%r|^.*/|,"" )
+  end
+  output+"\n"
+ end
+
+ def dependencies( start )
+  modules = modules_used_in( start )
+  @parsed = @parsed || [start]
+  newSourceFiles = modules.collect{ |mod| @hash[mod] }.compact
+  makefile_dependency_line(start) +
+  newSourceFiles.collect do |file|
+   next if @parsed.include?(file)
+   @parsed.push file
+   dependencies file
+  end.to_s
+ end
+
+ def source_file_dependencies( head_f90 )
+  modules_head_uses = modules_used_in( head_f90 )
+  required_f90s = modules_head_uses.map{ |mod| @hash[mod] }.compact
+  @file_dependencies[head_f90] = required_f90s
+  required_f90s.each do |required_f90|
+   next if @parsed.include?(required_f90)
+   source_file_dependencies( required_f90 )
+  end
+  @parsed.push head_f90
+ end
+
+ def required_source_files( head_f90 )
+  @parsed.clear
+  source_file_dependencies( head_f90 )
+  sources = Array.new
+  while !@file_dependencies.empty? do
+   no_dependents_pair = @file_dependencies.detect{ |h,d| d == [] }
+   no_dependents = no_dependents_pair.first
+   sources.push no_dependents
+   @file_dependencies.delete(no_dependents){ |el| "#{el} not found" }
+   @file_dependencies.each_value{ |deps| deps.delete(no_dependents) }
+  end
+  sources
+ end
+
+end

data/lib/funit/assertions.rb

@@ -0,0 +1,72 @@
+module Funit
+  module Assertions
+
+    $assertRegEx = /Is(RealEqual|False|True|EqualWithin|Equal)\(.*\)/i
+
+    def istrue(line)
+      line=~/\((.+)\)/
+      @type = 'IsTrue'
+      @condition = ".not.(#$1)"
+      @message = "\"#$1 is not true\""
+      syntaxError("invalid body for #@type",@suiteName) unless $1=~/\S+/
+        writeAssert
+    end
+
+    def isfalse(line)
+      line=~/\((.+)\)/
+      @type = 'IsFalse'
+      @condition = "#$1"
+      @message = "\"#$1 is not false\""
+      syntaxError("invalid body for #@type",@suiteName) unless $1=~/\S+/
+        writeAssert
+    end
+
+    def isrealequal(line)
+      line=~/\(([^,]+),(.+)\)/
+      @type = 'IsRealEqual'
+      @condition = ".not.(#$1+2*spacing(real(#$1)).ge.#$2 &\n             .and.#$1-2*spacing(real(#$1)).le.#$2)"
+      @message = "\"#$2 (\",#$2,\") is not\",#$1,\"within\",2*spacing(real(#$1))"
+      syntaxError("invalid body for #@type",@suiteName) unless $&
+      writeAssert
+    end
+
+    def isequalwithin(line)
+      line=~/\(([^,]+),(.+),(.+)\)/
+      @type = 'IsEqualWithin'
+      @condition = ".not.(#$2+#$3.ge.#$1 &\n             .and.#$2-#$3.le.#$1)"
+      @message = "\"#$1 (\",#$1,\") is not\",#$2,\"within\",#$3"
+      syntaxError("invalid body for #@type",@suiteName) unless $&
+      writeAssert
+    end
+
+    def isequal(line)
+      line=~/\((\w+\(.*\)|[^,]+),(.+)\)/
+      @type = 'IsEqual'
+      @condition = ".not.(#$1==#$2)"
+      @message = "\"#$1 (\",#$1,\") is not\", #$2"
+      syntaxError("invalid body for #@type",@suiteName) unless $&
+      writeAssert
+    end
+
+    def writeAssert
+      <<-OUTPUT
+
+  ! #@type assertion
+  numAsserts = numAsserts + 1
+  if (noAssertFailed) then
+    if (#@condition) then
+      print *, " *#@type failed* in test #@testName &
+                         &[#{@suiteName}MT.ftk:#{@lineNumber.to_s}]"
+      print *, "  ", #@message
+      print *, ""
+      noAssertFailed = .false.
+      numFailures    = numFailures + 1
+    else
+      numAssertsTested = numAssertsTested + 1
+    endif
+  endif
+      OUTPUT
+    end
+
+  end # module Assertions
+end # module Funit