Changeset 3548


Ignore:
Timestamp:
Feb 14, 2013, 3:26:44 AM (14 months ago)
Author:
quozl
Message:

OLPC - rewrite switch tests for field only, #12514

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dev/olpc/lidtest.fth

    r3546 r3548  
    44: open  ( -- okay? )  true  ; 
    55: close  ( -- )  ; 
     6 
    67: ?key-abort  ( -- )  key?  if  key esc =  abort" Aborted"  then  ; 
    7 : wait-not-lid  ( -- ) 
    8    ." Deactivate lid switch" cr 
    9    begin  ?key-abort  lid? 0=  until 
    10 ; 
    11 : wait-lid  ( -- ) 
    12    ." Activate lid switch" cr 
    13    begin  ?key-abort  lid? until 
    14 ; 
    15 : wait-not-ebook  ( -- ) 
    16    ." Deactivate ebook switch" cr 
    17    begin  ?key-abort  ebook? 0=  until 
    18 ; 
    19 : wait-ebook  ( -- ) 
    20    ." Activate ebook switch" cr 
    21    begin  ?key-abort  ebook? until 
     8 
     9: wait-not-lid    ( -- )  begin  ?key-abort  lid? 0=    until  ; 
     10: wait-lid        ( -- )  begin  ?key-abort  lid?       until  ; 
     11: wait-not-ebook  ( -- )  begin  ?key-abort  ebook? 0=  until  ; 
     12: wait-ebook      ( -- )  begin  ?key-abort  ebook?     until  ; 
     13 
     14: all-switch-states  ( -- ) 
     15   lid?  if 
     16      ." Deactivate lid switch" cr 
     17      wait-not-lid 
     18   else 
     19      ." Activate lid switch" cr 
     20      wait-lid 
     21   then 
     22   ebook?  if 
     23      ." Deactivate ebook switch" cr 
     24      wait-not-ebook 
     25   else 
     26      ." Activate ebook switch" cr 
     27      wait-ebook 
     28   then 
    2229; 
    2330 
    24 : all-switch-states  ( -- ) 
    25    lid?  if  wait-not-lid  else  wait-lid  then 
    26    ebook?  if  wait-not-ebook  else  wait-ebook  then 
     31: ty    ." Thank you."  cr cr  ; 
     32: pltd  ." Please lift the display and rotate it to face you."  cr  ; 
     33 
     34: field-switch-states  ( -- ) 
     35   cr 
     36   ebook?  if  pltd  wait-not-ebook  ty  then 
     37 
     38   lid?  if  ." Please open the lid."  cr  wait-not-lid  ty  then 
     39 
     40   ." Please close the lid and then open it."  cr 
     41   wait-lid  d# 1000 ms  wait-not-lid  ty 
     42 
     43   ." Please rotate the lid to face away, and close it face up."  cr 
     44   wait-ebook  d# 1000 ms  ty 
     45   pltd  wait-not-ebook  ty 
    2746; 
    2847 
    2948: selftest  ( -- error? ) 
    30    ['] all-switch-states catch 
     49   factory-test?  if 
     50      ['] all-switch-states catch 
     51   else 
     52      ['] field-switch-states catch 
     53   then 
    3154; 
    3255 
Note: See TracChangeset for help on using the changeset viewer.