# Mu - 086scenario_console_test.mu

     1 # To check our support for consoles in scenarios, rewrite tests from
     2 # scenario_console.mu
     3 # Tests for console interface.
     4
     5 scenario read-key-in-mu [
     6   assume-console [
     7     type [abc]
     8   ]
     9   run [
    10     1:char, 2:bool <- read-key console
    11     3:char, 4:bool <- read-key console
    12     5:char, 6:bool <- read-key console
    13     7:char, 8:bool <- read-key console
    14   ]
    15   memory-should-contain [
    16     1 <- 97  # 'a'
    17     2 <- 1
    18     3 <- 98  # 'b'
    19     4 <- 1
    20     5 <- 99  # 'c'
    21     6 <- 1
    22     7 <- 0  # eof
    23     8 <- 1
    24   ]
    25 ]