test_attr_mode Subroutine

public subroutine test_attr_mode()

Arguments

None

Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: expected_color = esc//'[44m'//esc//'[1mHello!'//esc//'[22m'//esc//'[49m '//esc//'[42m'//esc//'[33mHello Again!'//esc//'[39m'//esc//'[49m'//esc//'[0m'
character(len=*), public, parameter :: expected_plain = 'Hello! Hello Again!'
character(len=*), public, parameter :: in = '<B><bo>Hello!</bo></B> <G><y>Hello Again!</y></G>'

Source Code

subroutine test_attr_mode()
character(len=*),parameter :: in='<B><bo>Hello!</bo></B> <G><y>Hello Again!</y></G>'
character(len=*),parameter :: expected_color= &
   & esc//'[44m'//esc//'[1mHello!'// &
   & esc//'[22m'//esc//'[49m '//esc//'[42m'//esc//'[33mHello Again!'// &
   & esc//'[39m'//esc//'[49m'//esc//'[0m'
character(len=*),parameter :: expected_plain='Hello! Hello Again!'
   call unit_check_start('attr_mode',' '//OPTIONS)
   call attr_mode(manner='color')
   call unit_check('attr_mode',attr(in).eq.expected_color,'color')
   call attr_mode(manner='plain')
   call unit_check('attr_mode',attr(in).eq.expected_plain,'plain')
   call attr_mode(manner='raw')
   call unit_check('attr_mode',attr(in).eq.in,'raw')
   call unit_check_done('attr_mode')
end subroutine test_attr_mode