home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume11 / test.el / part02 / box.script next >
Encoding:
Text File  |  1987-09-08  |  2.7 KB  |  92 lines
  1. ;;; box.script - test script for box.el -*- emacs-lisp -*-
  2.  
  3. (defun test-script ()
  4.   (interactive)
  5.                     ; Local Variables
  6.   (let (pre
  7.     post
  8.     actual
  9.     (tst-vars-exclude-default (cons "tst-ann-tricorder"
  10.                     tst-vars-exclude-default))
  11.     )
  12.                     ; Body
  13.     (get-buffer-create "box.el")
  14.     (set-buffer "box.el")
  15.     (erase-buffer)
  16.     (insert-file "/project/gnutest/src/box.el")
  17.     (goto-char (point-min))
  18.     (emacs-lisp-mode)
  19.     (test-mode)
  20.     (tst-instrument)
  21.                     ; 1st test run
  22.     (get-buffer-create "box.demo")
  23.     (set-buffer "box.demo")
  24.     (erase-buffer)
  25.     (insert-file "/project/gnutest/test/box.demo")
  26.  
  27.     (tst-capture-state-to-file "/project/gnutest/test/prebox.state" nil nil)
  28.     (goto-char (point-min))
  29.     (set-mark (point-max))
  30.     (box-region nil)
  31.     (tst-capture-state-to-file "/project/gnutest/test/boxed.state" nil nil)
  32.     (goto-char (point-max))        ; cannot unbox from point-min
  33.     (unbox nil)
  34.     (tst-capture-state 'post nil nil)
  35.     (tst-read-state-from-file 'pre "/project/gnutest/test/prebox.state")
  36.  
  37.     (tst-equ-state pre post "Compare before box to after unbox")
  38.  
  39.     (set-buffer "*equal-log*")
  40.     (write-file "box.equallog.1")
  41.     (erase-buffer)
  42.  
  43.     (message "Compared box state - 1")
  44.  
  45.     (set-buffer "box.demo")
  46.     (goto-char (point-min))
  47.     (set-mark (point-max))
  48.     (box-region 1)            ; centered box-region
  49.     (tst-capture-state-to-file "/project/gnutest/test/cboxed.state" nil nil)
  50.     (goto-char (point-max))        ; cannot unbox from point-min
  51.     (unbox nil)
  52.     (tst-capture-state 'post nil nil)
  53.     (tst-equ-state pre post "Compare before cen-box to after unbox")
  54.     (set-buffer "*equal-log*")
  55.     (write-file "box.equallog.2")
  56.     (erase-buffer)
  57.  
  58.     (message "Compared box state - 2")
  59.  
  60.     (tst-read-state-from-file 'pre "/project/gnutest/test/cboxed.state")
  61.     (tst-read-state-from-file 'post "/project/gnutest/test/boxed.state")
  62.     (tst-equ-state pre post "Compare centered boxed to boxed")
  63.  
  64.     (set-buffer "*equal-log*")
  65.     (write-file "box.equallog.3")
  66.     (erase-buffer)
  67.     (message "Compared box state - 3")
  68.  
  69. ;;; do some cleaning up
  70.     (delete-file "/project/gnutest/test/cboxed.state")
  71.     (delete-file "/project/gnutest/test/boxed.state")
  72.     (delete-file "/project/gnutest/test/prebox.state")
  73.  
  74. ;;; now, check the coverage
  75.     (set-buffer "box.demo")
  76.     (goto-char (point-min))
  77.     (set-mark (point-max))
  78.     (box-region 1)            ; centered box-region
  79.     (goto-char (point-max))
  80.     (unbox 1)                ;Now, everything should be covered!
  81.     (set-buffer "box.el")
  82.     (tst-analyze)
  83.     (set-variable 'tst-batch-results "box.results")
  84.     (tst-display-batch)
  85. ;;    (kill-emacs 0)
  86.     )                    ; let
  87.   )                    ; defun
  88.  
  89. (load-file "/project/gnutest/src/test.el")
  90. (test-script)
  91. echo shar: "a missing newline was added to 'box.script'"
  92.