summary refs log tree commit diff stats
path: root/tests
Commit message (Expand)AuthorAgeFilesLines
* Fix misspellingsstepshal2016-06-262-2/+2
* Remove whitespace in blank linesstepshal2016-06-191-2/+2
* Merge branch 'E301' of https://github.com/stepshal/rangerhut2016-06-181-0/+2
|\
| * Add one blank line where is expectedstepshal2016-06-161-0/+2
* | Add two blank lines where is expectedstepshal2016-06-162-0/+2
|/
* Make exactly one space after commastepshal2016-06-061-1/+1
* test_fsobject: fix syntax errorhut2016-03-251-2/+2
* Remove accidental prints for debugginglverweijen2016-03-221-4/+0
* Make natural_sort's behaviour better definedlverweijen2016-03-081-0/+38
* container.history: fixed rebase() unit testhut2016-02-281-3/+4
* bookmarks: add testLaurent Charignon2016-01-311-0/+52
* history: fix logic error and add test for all the methodsLaurent Charignon2016-01-311-2/+96
* tests: add a dummy pytest test and add it to the make test stepLaurent Charignon2016-01-314-0/+5
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-14 06:57:50 +0000
vious revision' href='/akkartik/mu/blame/edit.arc.t?h=main&id=fde987b54f32ecb7c26c42322ab5df48e317c236'>^ 
484d7648 ^















9dca5395 ^


4f9f75dd ^


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

                                       
                          

            

       
                        

                             
                               
                                                                 
         

                                  














                                                                                                        

       

                                    
(selective-load "mu.arc" section-level)
(set allow-raw-addresses*)

(section 100

(reset)
(new-trace "new-screen")
(add-code:readfile "edit.mu")
(add-code
  '((function test-new-screen [
      (1:screen-address/global <- new-screen 5:literal 5:literal)
     ])))
;? (each stmt function*!new-screen
;?   (prn stmt))
(let routine make-routine!test-new-screen
  (let before rep.routine!alloc
;?     (= dump-trace* (obj blacklist '("sz" "m" "setm" "addr" "cvt0" "cvt1")))
    (run 'test-new-screen)
;?     (prn memory*)
;?     (prn memory*.2001)
    (when (~is (memory* memory*.1) 5)  ; number of rows
      (prn "F - newly-allocated screen doesn't have the right number of rows: @(memory* memory*!2001)"))
    (let row-pointers (let base (+ 1 memory*.1)
                        (range base (+ base 4)))
  ;?     (prn row-pointers)
      (when (some nil (map memory* row-pointers))
        (prn "F - newly-allocated screen didn't initialize all of its row pointers"))
      (when (~all 5 (map memory* (map memory* row-pointers)))
        (prn "F - newly-allocated screen didn't initialize all of its row lengths")))))

(reset)

)  ; section 100 for all editor code