C.3.4 Text_Utils Module Unit Test Program

This lightly commented program performs a unit test on the Text_Utils Module.

program Unit_Test

  use Caesar_Intrinsics_Module
  use Caesar_Text_Utils_Module
  implicit none

  type(character,80) :: String

  ! Testing statements.

  String = 'one two three four five six'
  write (6,*) ' '
  write (6,*) 'String =           ', TRIM(String)
  write (6,*) 'Lowercase =        ', TRIM(Lowercase(String))
  write (6,*) 'Capitalized =      ', TRIM(Capitalize(String))
  write (6,*) 'Uppercase =        ', TRIM(Uppercase(String))

  String = 'ONE TWO THREE FOUR FIVE SIX'
  write (6,*) ' '
  write (6,*) 'String =           ', TRIM(String)
  write (6,*) 'Lowercase =        ', TRIM(Lowercase(String))
  write (6,*) 'Capitalized =      ', TRIM(Capitalize(String))
  write (6,*) 'Uppercase =        ', TRIM(Uppercase(String))

  String = '@oNE/tWO#tHREE3fOUR:fIVE(sIX)'
  write (6,*) ' '
  write (6,*) 'String =           ', TRIM(String)
  write (6,*) 'Lowercase =        ', TRIM(Lowercase(String))
  write (6,*) 'Capitalized =      ', TRIM(Capitalize(String))
  write (6,*) 'Uppercase =        ', TRIM(Uppercase(String))

  String = 'One-Two Three-Four Five-Six'
  write (6,*) ' '
  write (6,*) 'String =           ', TRIM(String)
  write (6,*) 'Lowercase =        ', TRIM(Lowercase(String))
  write (6,*) 'Capitalized =      ', TRIM(Capitalize(String))
  write (6,*) 'Uppercase =        ', TRIM(Uppercase(String))

  String = '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'
  write (6,*) ' '
  write (6,*) 'String =           ', TRIM(String)
  write (6,*) 'Lowercase =        ', TRIM(Lowercase(String))
  write (6,*) 'Capitalized =      ', TRIM(Capitalize(String))
  write (6,*) 'Uppercase =        ', TRIM(Uppercase(String))

end