Changeset 64


Ignore:
Timestamp:
07/14/09 05:15:53 (3 years ago)
Author:
dom
Message:

Removed 4s sleep in compiler, accelerated tests and reduced test timeouts.

Location:
trunk/src
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/compiler.erl

    r63 r64  
    77 
    88loop (Notify, Watcher, Modules) -> 
    9     Watcher ! check, 
     9    receive check -> Watcher ! check end, 
    1010    receive_files (Notify, Watcher, Modules, Modules). 
    1111 
    … …  
    1616        {Watcher, _} -> 
    1717            receive_files (Notify, Watcher, Modules, New) 
    18     after 0 -> 
     18    after 500 -> 
    1919            compile (Notify, Watcher, Modules, New) 
    2020    end. 
    2121 
    2222compile (Notify, Watcher, Modules, Modules) -> 
    23     timer: sleep (4000), 
    2423    loop (Notify, Watcher, Modules); 
    2524compile (Notify, Watcher, _, Modules) -> 

  • trunk/src/compiler_test.erl

    r63 r64  
    1212compiles_and_reports_progress_warnings_and_errors () -> 
    1313    Compiler = spawn_link (compiler, init, [notify_me (), "fix"]), 
     14    Compiler ! check, 
    1415    Ms = receive_all (), 
    1516    Compiler ! stop, 
    … …  
    2627provides_binaries_when_all_compiled (Root, _) -> 
    2728    Compiler = spawn_link (compiler, init, [notify_me (), Root]), 
     29    Compiler ! check, 
    2830    Ms = receive_all (), 
    2931    Compiler ! stop, 
    … …  
    3739recompiles_minimally_after_change (Root, _) -> 
    3840    Compiler = spawn_link (compiler, init, [notify_me (), Root]), 
     41    Compiler ! check, 
    3942    receive_all (), 
    4043    File = filename: join (Root, "hello.erl"), 
    4144    Bin = list_to_binary ("-module(hello). -export([run/0]). run()->hello_howdy."), 
    4245    ok = file: write_file (File, Bin), 
     46    Compiler ! check, 
    4347    [{2, 1, 1}, {2, 2, 2}, {binaries, [B]}] = receive_all (), 
    4448    Compiler ! stop, 

  • trunk/src/shells.erl

    r63 r64  
    1111        receive {Self, done} -> ok; 
    1212                M -> io:fwrite ("tests_crash: ~p~n", [M]) 
    13         after 30000 -> throw ("tests timed out~n") 
     13        after 20000 -> throw ("tests timed out~n") 
    1414        end 
    1515 

  • trunk/src/shells_tests.erl

    r61 r64  
    3434        Message -> 
    3535            final_test_result ([Message | Messages]) 
    36     after 20000 -> {timeout, Messages} 
     36    after 15000 -> {timeout, Messages} 
    3737    end. 
Note: See TracChangeset for help on using the changeset viewer.