about summary refs log tree commit diff stats
path: root/cpp/001test
Commit message (Expand)AuthorAgeFilesLines
* 946 - selectively run just some testsKartik K. Agaram2015-03-171-12/+34
* 921Kartik K. Agaram2015-03-141-5/+5
* 784 - persist traces in literate versionKartik K. Agaram2015-02-191-0/+2
* 782 - promote literate version to canonical C++ versionKartik K. Agaram2015-02-181-0/+79
_test.mu?h=hlt&id=6f65d5918f4b73de56e6cb6362c7cbc7dbbe5945'>6f65d591 ^
bc643692 ^
1fd41772 ^
08f4628e ^
fb942da8 ^
1fd41772 ^






051c4738 ^
6f65d591 ^
bc643692 ^
6f65d591 ^

fb942da8 ^
6f65d591 ^
fb942da8 ^
1fd41772 ^
fb942da8 ^
1fd41772 ^






e80fd05f ^














1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

                                                                            
                                        
             
                                 
       
                       
                             






                         
                                                 
             
                                 

                     
                           
                                
                                               
       
                               






                         














                                       
# To check our support for screens in scenarios, rewrite tests from print.mu

scenario print-character-at-top-left-2 [
  local-scope
  assume-screen 3/width, 2/height
  run [
    a:char <- copy 97/a
    screen <- print screen, a
  ]
  screen-should-contain [
    .a  .
    .   .
  ]
]

scenario clear-line-erases-printed-characters-2 [
  local-scope
  assume-screen 5/width, 3/height
  # print a character
  a:char <- copy 97/a
  screen <- print screen, a
  # move cursor to start of line
  screen <- move-cursor screen, 0/row, 0/column
  run [
    screen <- clear-line screen
  ]
  screen-should-contain [
    .     .
    .     .
    .     .
  ]
]

scenario scroll-screen [
  local-scope
  assume-screen 3/width, 2/height
  run [
    a:char <- copy 97/a
    move-cursor screen, 1/row, 2/column
    screen <- print screen, a
    screen <- print screen, a
  ]
  screen-should-contain [
    .  a.
    .a  .
  ]
]