tstLibraryIO.f90

./Core/io/f/tests/tstLibraryIO.f90

#include "ScaleDBCF/DBCF.h"
program main

use origen_library_m, ONLY: origen_library, &
                            origen_libraryheader, &
                            origen_decaydata, &
                            origen_transitionstructure, &
                            origen_transitioncoeff
use origen_libraryio_m
use datacontainer_m
use stringlist_m
use dbcf_m
use origen_testpaths_m
!
use nemesis_comm, only: build_types, initialize, finalize, node

implicit none

type(origen_library) :: lib
type(origen_libraryio) :: io
type(datacontainer) :: options
type(stringlist) :: errors,oerrors
logical :: loaded,saved
integer :: i
character(128) :: str

call initialize
call build_types
if( node() /= 0 )call finalize

!initialize
call errors % initialize()
call io % initialize()
call options % initialize()

!load PWR library
call lib % initialize()
loaded = io % load(lib,pwrlib_filepath,options)
if( .not. loaded )then
    write(*,*)"couldn't read PWR library {"//trim(pwrlib_filepath)//"}"
    stop 0
else
    saved = io % save(lib,'pwr.bof',options)
end if
call lib % destroy()


!load decay library
call lib % initialize()
loaded = io % load(lib,decaylib_filepath,options)
if( .not. loaded )then
    write(*,*)"couldn't read decay library {"//trim(decaylib_filepath)//"}"
    stop 0
else
    saved = io % save(lib,'decay.bof',options)
end if
call lib % destroy()


!load non-existant library
loaded = io % load(lib,'DOES_NOT_EXIST',options)
call options % remove(oerrors,"ERROR");


!will get the following error messages (1 for each failed format, then summary):
! could not open file={DOES_NOT_EXIST} for reading binary
! could not open file={DOES_NOT_EXIST} for reading binary
! could not open file={DOES_NOT_EXIST} for reading binary
! tried to load formats: (bof|s62b|s61) and failed
if(oerrors%size()/=4)then
    call errors % push_back("didn't get the right number of errors "//&
        "when trying to load from bogus file");
end if

!output the errors inside options
!do i=1,oerrors % size()
!    call oerrors % at(str,i)
!    write(*,*)i,". ",trim(str)
!end do

!destroy options errors
call oerrors % destroy()

!stop if errors found
if( errors%size()>0 )then
    write(*,*)'found errors:'
    do i=1,errors % size()
        call errors % at(str,i)
        write(*,*)i,". ",trim(str)
    end do
    stop 1
endif

call options % destroy()
call io % destroy()
call errors % destroy()

call finalize

end program