Line data    Source code

       1            1 : program test_colors
       2            1 :    use colors_lib, only: colors_init, colors_shutdown
       3              :    implicit none
       4              : 
       5              :    integer :: ierr
       6              :    logical :: use_cache
       7              : 
       8            1 :    ierr = 0
       9            1 :    use_cache = .false.
      10              : 
      11              :    ! TODO: add tests for colors module functionality here
      12              : 
      13            1 :    write(*,*) 'Testing colors module initialization...'
      14              : 
      15              :    ! Initialize colors module
      16              :    ! call colors_init(use_cache, '', ierr)
      17            1 :    if (ierr /= 0) then
      18            0 :       write(*,*) 'Error: colors_init failed with code', ierr
      19            0 :       stop 1
      20              :    end if
      21              : 
      22            1 :    write(*,*) 'Colors module initialized successfully.'
      23            1 :    write(*,*) 'Test passed!'
      24              : 
      25              :    ! Clean up
      26              :    ! call colors_shutdown()
      27              : 
      28            1 : end program test_colors