File tree Expand file tree Collapse file tree 2 files changed +6
-7
lines changed
Expand file tree Collapse file tree 2 files changed +6
-7
lines changed Original file line number Diff line number Diff line change @@ -82,7 +82,8 @@ let f () =
8282in
8383f () ; Sys. chdir " /static" ; f ()
8484 | };
85- [% expect {|
85+ [% expect
86+ {|
8687 new file contents : Hello world
8788 new file contents : Hello world
8889 |}]
@@ -111,7 +112,8 @@ let f () =
111112in
112113f () ; Sys. chdir " /static" ; f ()
113114 | };
114- [% expect {|
115+ [% expect
116+ {|
115117 new file contents : Hello world
116118 new file contents : Hello world
117119 |}]
@@ -174,7 +176,6 @@ f (); Sys.chdir "/static"; f ()
174176 contents of 'bbb ': aaa
175177 |}]
176178
177-
178179let % expect_test _ =
179180 (* Check we can't rename a directory over a file *)
180181 compile_and_run
Original file line number Diff line number Diff line change @@ -89,15 +89,13 @@ class MlFakeDevice {
8989 ) ;
9090 }
9191 if ( this . readdir ( newname ) . length > 0 ) {
92- caml_raise_sys_error (
93- this . nm ( newname ) + " : directory not empty" ,
94- ) ;
92+ caml_raise_sys_error ( this . nm ( newname ) + " : directory not empty" ) ;
9593 }
9694 }
9795 var old_slash = this . slash ( oldname ) ;
9896 var new_slash = this . slash ( newname ) ;
9997 this . create_dir_if_needed ( new_slash ) ;
100- for ( const f of this . readdir ( oldname ) ) {
98+ for ( const f of this . readdir ( oldname ) ) {
10199 this . rename ( old_slash + f , new_slash + f ) ;
102100 }
103101 delete this . content [ old_slash ] ;
You can’t perform that action at this time.
0 commit comments