1  # frozen_string_literal: true
   2 
   3  require "test_helper"
   4 
   5 
   6  module Umu
   7 
   8  module Test
   9 
  10  module Grammar
  11 
  12  module CoreLanguage
  13 
  14  module Declaration
  15 
  16  class AssertTest < Minitest::Test
  17  =begin
  18  <value-declaration> ::=
  19      ASSERT <expression> "-> <expression> ;
  20  =end
  21      def setup
  22          @interp = Api.setup_interpreter
  23      end
  24 
  25 
  26      def test_assert
  27 
  28          assert (
  29              Api.eval_decls @interp, 'assert TRUE -> "SUCCESS!!"'
  30          )
  31 
  32          assert_raises(X::AssertionFailure) do
  33              Api.eval_decls @interp, 'assert FALSE -> "FAILURE!!"'
  34          end
  35      end
  36  end
  37 
  38  end # Umu::Test::Grammar::CoreLanguage::Declaration
  39 
  40  end # Umu::Test::Grammar::CoreLanguage
  41 
  42  end # Umu::Test::Grammar
  43 
  44  end # Umu::Test
  45 
  46  end # Umu