Return to 157.html CVS log

Up to [parser3project] / parser3 / tests

Annotation of parser3/tests/157.html, revision 1.4

1.4     ! moko        1: $sSrc[157.html]
        !             2: 
        !             3: $stSrc[^file::stat[$sSrc]]
        !             4: 
1.3       misha       5: $sCopy[newdir1/157.copy]
                      6: $sMove[newdir2/157.move]
1.4     ! moko        7: ^try-catch{
        !             8:        Copying file: ^file:copy[$sSrc;$sCopy]
1.3       misha       9:        ^if(-f $sCopy){
1.1       misha      10:                ok.
                     11:        }{
                     12:                no copy errors but target file doesn't exist.
                     13:        }
1.3       misha      14: }
                     15: <br />
                     16: 
1.4     ! moko       17: ^if(! -f $sCopy){
        !            18:        ^return[]
        !            19: }
        !            20: 
        !            21: ^try-catch{
        !            22:        Appending file: ^file:copy[$sSrc;$sCopy; $.append(true) ]
        !            23: 
        !            24:        $stCopy[^file::stat[$sCopy]]
        !            25:        ^if($stCopy.size == $stSrc.size*2){
        !            26:                ok.
        !            27:        }{
        !            28:                appended file size $stCopy.size is not double of source file size ${stSrc.size}.
        !            29:        }
        !            30: }
        !            31: <br />
        !            32: 
        !            33: ^try-catch{
        !            34:        Moving file: ^file:move[$sCopy;$sMove]
        !            35:        ^if(-f $sMove){
        !            36:                ^if(-d ^file:dirname[$sCopy]){
        !            37:                        moving ok but source dir still exist.
1.3       misha      38:                }{
1.4     ! moko       39:                        ok.
1.3       misha      40:                }
1.4     ! moko       41:                ^file:delete[$sMove]
1.3       misha      42:        }{
1.4     ! moko       43:                no move errors but target file doesn't exist.
1.3       misha      44:        }
                     45: }