Changeset 107832


Ignore:
Timestamp:
Jul 6, 2013, 5:30:42 PM (7 years ago)
Author:
marius@…
Message:

Fixed statefile-v1 test and added new test case.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/gsoc13-tests/tests/test/statefile-version1/test.tcl

    r107801 r107832  
    1717port_clean $path
    1818
    19 proc statefile_v1 {} {
     19proc statefile_v1 {warn} {
    2020    global path
    2121    global output_file
    2222
    23     set msg "*staging*destroot*"
     23    if {[string compare $warn "no"]} {
     24        set msg "*discarding previous state*"
     25    } else {
     26        set msg "*staging*destroot*"
     27    }
    2428    set line [get_line $path/$output_file $msg]
    2529    return $line
    2630}
    2731
    28 test envvariables {
     32test warning_check {
    2933    Regression test for statefile-version1.
    3034} -body {
    31     statefile_v1
     35    statefile_v1 yes
     36} -result "-1"
     37
     38test output_check {
     39    Regression test for statefile-version1.
     40} -body {
     41    statefile_v1 no
    3242} -result "--->  staging statefile-version1 into destroot"
    3343
Note: See TracChangeset for help on using the changeset viewer.