@ -226,18 +226,16 @@ let
def create_vm_ $ { name } ( ) :
# fmt: off
vbm ( f " c r e a t e v m - - n a m e ${ name } ${ createFlags } " )
vbm ( f " m o d i f y v m ${ name } ${ vmFlags } " )
vbm ( f " s e t e x t r a d a t a ${ name } V B o x I n t e r n a l / P D M / H a l t O n R e s e t 1 " )
vbm ( f " s t o r a g e c t l ${ name } ${ controllerFlags } " )
vbm ( f " s t o r a g e a t t a c h ${ name } ${ diskFlags } " )
vbm ( f " s h a r e d f o l d e r a d d ${ name } ${ sharedFlags } " )
vbm ( f " s h a r e d f o l d e r a d d ${ name } ${ nixstoreFlags } " )
vbm ( " c r e a t e v m - - n a m e ${ name } ${ createFlags } " )
vbm ( " m o d i f y v m ${ name } ${ vmFlags } " )
vbm ( " s e t e x t r a d a t a ${ name } V B o x I n t e r n a l / P D M / H a l t O n R e s e t 1 " )
vbm ( " s t o r a g e c t l ${ name } ${ controllerFlags } " )
vbm ( " s t o r a g e a t t a c h ${ name } ${ diskFlags } " )
vbm ( " s h a r e d f o l d e r a d d ${ name } ${ sharedFlags } " )
vbm ( " s h a r e d f o l d e r a d d ${ name } ${ nixstoreFlags } " )
cleanup_ $ { name } ( )
$ { mkLog " $ H O M E / V i r t u a l B o x V M s / ${ name } / L o g s / V B o x . l o g " " H O S T - ${ name } " }
# fmt: on
def destroy_vm_ $ { name } ( ) :
@ -259,9 +257,7 @@ let
def wait_for_ip_ $ { name } ( interface ) :
property = f " / V i r t u a l B o x / G u e s t I n f o / N e t / { i n t e r f a c e } / V 4 / I P "
# fmt: off
getip = f " V B o x M a n a g e g u e s t p r o p e r t y g e t ${ name } { p r o p e r t y } | s e d - n - e ' s / ^ V a l u e : / / p ' "
# fmt: on
ip = machine . succeed (
ru (
@ -394,9 +390,7 @@ let
machine . wait_for_x ( )
# fmt: off
$ { mkLog " $ H O M E / . c o n f i g / V i r t u a l B o x / V B o x S V C . l o g " " H O S T - S V C " }
# fmt: on
$ { testScript }
# (keep black happy)