October 2017 - Wine-commits

Vincent Povirk : wine.inf: Put 64-bit .ds fakedlls in windows/twain_64.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: wine Branch: master Commit: 02c35582f6b1f2cd990b705eee09b36517be7d98 URL: http://source.winehq.org/git/wine.git/?a=commit;h=02c35582f6b1f2cd990b705ee… Author: Vincent Povirk <vincent(a)codeweavers.com> Date: Wed Oct 18 16:44:26 2017 -0500 wine.inf: Put 64-bit .ds fakedlls in windows/twain_64. Signed-off-by: Vincent Povirk <vincent(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- loader/wine.inf.in | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/loader/wine.inf.in b/loader/wine.inf.in index c965e1f..10e8d0a 100644 --- a/loader/wine.inf.in +++ b/loader/wine.inf.in @@ -79,7 +79,7 @@ AddReg=\ [DefaultInstall.ntamd64] RegisterDlls=RegisterDllsSection -WineFakeDlls=FakeDlls +WineFakeDlls=FakeDllsWin64,FakeDlls WinePreInstall=Wow64 UpdateInis=SystemIni CopyFiles=(a)l_intl.nls @@ -2529,6 +2529,11 @@ HKLM,%CurrentVersion%\Telephony\Country List\998,"SameAreaRule",,"G" 11,,dsound.vxd 11,,winhlp32.exe +; 64bit-only fake dlls +[FakeDllsWin64] +10,twain_64,sane.ds +10,twain_64,gphoto2.ds + ; Wow64-only fake dlls [FakeDllsWow64] ; create some directories first

1 0

Piotr Caban : msi: Fix installations with only INSTALLSTATE_SOURCE features.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: wine Branch: master Commit: 30c957b9ccb9a756b3dee3afcc33bdd521db60b1 URL: http://source.winehq.org/git/wine.git/?a=commit;h=30c957b9ccb9a756b3dee3afc… Author: Piotr Caban <piotr(a)codeweavers.com> Date: Wed Oct 18 17:25:08 2017 +0200 msi: Fix installations with only INSTALLSTATE_SOURCE features. Signed-off-by: Piotr Caban <piotr(a)codeweavers.com> Signed-off-by: Hans Leidekker <hans(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- dlls/msi/action.c | 4 ++-- dlls/msi/tests/package.c | 15 +++++++++++++++ 2 files changed, 17 insertions(+), 2 deletions(-) diff --git a/dlls/msi/action.c b/dlls/msi/action.c index 915ff17..da7af06 100644 --- a/dlls/msi/action.c +++ b/dlls/msi/action.c @@ -4315,7 +4315,7 @@ static BOOL msi_check_publish(MSIPACKAGE *package) LIST_FOR_EACH_ENTRY(feature, &package->features, MSIFEATURE, entry) { feature->Action = msi_get_feature_action( package, feature ); - if (feature->Action == INSTALLSTATE_LOCAL) + if (feature->Action == INSTALLSTATE_LOCAL || feature->Action == INSTALLSTATE_SOURCE) return TRUE; } @@ -5358,7 +5358,7 @@ static BOOL is_full_uninstall( MSIPACKAGE *package ) LIST_FOR_EACH_ENTRY( feature, &package->features, MSIFEATURE, entry ) { - if (feature->Action == INSTALLSTATE_LOCAL) ret = FALSE; + if (feature->Action == INSTALLSTATE_LOCAL || feature->Action == INSTALLSTATE_SOURCE) ret = FALSE; } features = msi_split_string( remove, ',' ); diff --git a/dlls/msi/tests/package.c b/dlls/msi/tests/package.c index 78ec1cc..1f04cef 100644 --- a/dlls/msi/tests/package.c +++ b/dlls/msi/tests/package.c @@ -3654,6 +3654,21 @@ static void test_states(void) MsiCloseHandle(hpkg); + /* test source only install */ + r = MsiInstallProductA(msifile, "REMOVE=ALL"); + ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r); + state = MsiQueryFeatureStateA("{7262AC98-EEBD-4364-8CE3-D654F6A425B9}", "one"); + ok(state == INSTALLSTATE_UNKNOWN, "state = %d\n", state); + state = MsiQueryFeatureStateA("{7262AC98-EEBD-4364-8CE3-D654F6A425B9}", "two"); + ok(state == INSTALLSTATE_UNKNOWN, "state = %d\n", state); + + r = MsiInstallProductA(msifile, "ADDSOURCE=one"); + ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r); + state = MsiQueryFeatureStateA("{7262AC98-EEBD-4364-8CE3-D654F6A425B9}", "one"); + ok(state == INSTALLSTATE_SOURCE, "state = %d\n", state); + state = MsiQueryFeatureStateA("{7262AC98-EEBD-4364-8CE3-D654F6A425B9}", "two"); + ok(state == INSTALLSTATE_ABSENT, "state = %d\n", state); + /* uninstall the product */ r = MsiInstallProductA(msifile4, "REMOVE=ALL"); ok(r == ERROR_SUCCESS, "Expected ERROR_SUCCESS, got %d\n", r);

1 0

Alex Henrie : buildimage: Use "rsvg-convert" as the default RSVG command.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: wine Branch: master Commit: 608b6e2018d44a96c271898d32c5924bb4d0c5b0 URL: http://source.winehq.org/git/wine.git/?a=commit;h=608b6e2018d44a96c271898d3… Author: Alex Henrie <alexhenrie24(a)gmail.com> Date: Thu Oct 19 01:35:49 2017 -0600 buildimage: Use "rsvg-convert" as the default RSVG command. The command "rsvg" was renamed to "rsvg-convert" five years ago. Signed-off-by: Alex Henrie <alexhenrie24(a)gmail.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- tools/buildimage | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/buildimage b/tools/buildimage index cd24755..74519fd 100755 --- a/tools/buildimage +++ b/tools/buildimage @@ -42,7 +42,7 @@ my @hotspot; # Get the programs from the environment variables my $convert = $ENV{"CONVERT"} || "convert"; -my $rsvg = $ENV{"RSVG"} || "rsvg"; +my $rsvg = $ENV{"RSVG"} || "rsvg-convert"; my @icotool_args = ($ENV{"ICOTOOL"} || "icotool", "--create", $ext eq "cur" ? "--cursor" : "--icon", "-o", $outFileName);

1 0

Józef Kucia : d3d10core/tests: Add test for shaders interstage interface.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: wine Branch: master Commit: e162ae2333bcde601e111c644d13aec3d4100edb URL: http://source.winehq.org/git/wine.git/?a=commit;h=e162ae2333bcde601e111c644… Author: Józef Kucia <jkucia(a)codeweavers.com> Date: Thu Oct 19 10:07:26 2017 +0200 d3d10core/tests: Add test for shaders interstage interface. Signed-off-by: Józef Kucia <jkucia(a)codeweavers.com> Signed-off-by: Henri Verbeet <hverbeet(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- dlls/d3d10core/tests/device.c | 160 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 160 insertions(+) diff --git a/dlls/d3d10core/tests/device.c b/dlls/d3d10core/tests/device.c index 819d949..0d063f6 100644 --- a/dlls/d3d10core/tests/device.c +++ b/dlls/d3d10core/tests/device.c @@ -9039,6 +9039,165 @@ static void test_shader_stage_input_output_matching(void) release_test_context(&test_context); } +static void test_shader_interstage_interface(void) +{ + struct d3d10core_test_context test_context; + D3D10_TEXTURE2D_DESC texture_desc; + ID3D10InputLayout *input_layout; + ID3D10Texture2D *render_target; + ID3D10RenderTargetView *rtv; + ID3D10VertexShader *vs; + ID3D10PixelShader *ps; + ID3D10Device *device; + UINT stride, offset; + ID3D10Buffer *vb; + HRESULT hr; + + static const DWORD vs_code[] = + { +#if 0 + struct vertex + { + float4 position : SV_Position; + float2 t0 : TEXCOORD0; + nointerpolation float t1 : TEXCOORD1; + uint t2 : TEXCOORD2; + uint t3 : TEXCOORD3; + float t4 : TEXCOORD4; + }; + + void main(in vertex vin, out vertex vout) + { + vout = vin; + } +#endif + 0x43425844, 0xd55780bf, 0x76866b06, 0x45d697a2, 0xafac2ecd, 0x00000001, 0x000002bc, 0x00000003, + 0x0000002c, 0x000000e4, 0x0000019c, 0x4e475349, 0x000000b0, 0x00000006, 0x00000008, 0x00000098, + 0x00000000, 0x00000000, 0x00000003, 0x00000000, 0x00000f0f, 0x000000a4, 0x00000000, 0x00000000, + 0x00000003, 0x00000001, 0x00000303, 0x000000a4, 0x00000001, 0x00000000, 0x00000003, 0x00000002, + 0x00000101, 0x000000a4, 0x00000002, 0x00000000, 0x00000001, 0x00000003, 0x00000101, 0x000000a4, + 0x00000003, 0x00000000, 0x00000001, 0x00000004, 0x00000101, 0x000000a4, 0x00000004, 0x00000000, + 0x00000003, 0x00000005, 0x00000101, 0x505f5653, 0x7469736f, 0x006e6f69, 0x43584554, 0x44524f4f, + 0xababab00, 0x4e47534f, 0x000000b0, 0x00000006, 0x00000008, 0x00000098, 0x00000000, 0x00000001, + 0x00000003, 0x00000000, 0x0000000f, 0x000000a4, 0x00000000, 0x00000000, 0x00000003, 0x00000001, + 0x00000c03, 0x000000a4, 0x00000004, 0x00000000, 0x00000003, 0x00000001, 0x00000b04, 0x000000a4, + 0x00000001, 0x00000000, 0x00000003, 0x00000002, 0x00000e01, 0x000000a4, 0x00000002, 0x00000000, + 0x00000001, 0x00000002, 0x00000d02, 0x000000a4, 0x00000003, 0x00000000, 0x00000001, 0x00000002, + 0x00000b04, 0x505f5653, 0x7469736f, 0x006e6f69, 0x43584554, 0x44524f4f, 0xababab00, 0x52444853, + 0x00000118, 0x00010040, 0x00000046, 0x0300005f, 0x001010f2, 0x00000000, 0x0300005f, 0x00101032, + 0x00000001, 0x0300005f, 0x00101012, 0x00000002, 0x0300005f, 0x00101012, 0x00000003, 0x0300005f, + 0x00101012, 0x00000004, 0x0300005f, 0x00101012, 0x00000005, 0x04000067, 0x001020f2, 0x00000000, + 0x00000001, 0x03000065, 0x00102032, 0x00000001, 0x03000065, 0x00102042, 0x00000001, 0x03000065, + 0x00102012, 0x00000002, 0x03000065, 0x00102022, 0x00000002, 0x03000065, 0x00102042, 0x00000002, + 0x05000036, 0x001020f2, 0x00000000, 0x00101e46, 0x00000000, 0x05000036, 0x00102032, 0x00000001, + 0x00101046, 0x00000001, 0x05000036, 0x00102042, 0x00000001, 0x0010100a, 0x00000005, 0x05000036, + 0x00102012, 0x00000002, 0x0010100a, 0x00000002, 0x05000036, 0x00102022, 0x00000002, 0x0010100a, + 0x00000003, 0x05000036, 0x00102042, 0x00000002, 0x0010100a, 0x00000004, 0x0100003e, + }; + static const DWORD ps_code[] = + { +#if 0 + void main(float4 position : SV_Position, float2 t0 : TEXCOORD0, + nointerpolation float t1 : TEXCOORD1, uint t2 : TEXCOORD2, + uint t3 : TEXCOORD3, float t4 : TEXCOORD4, out float4 o : SV_Target) + { + o.x = t0.y + t1; + o.y = t2 + t3; + o.z = t4; + o.w = t0.x; + } +#endif + 0x43425844, 0x8a7ef706, 0xc8f2cbf1, 0x83a05df1, 0xfab8e613, 0x00000001, 0x000001dc, 0x00000003, + 0x0000002c, 0x000000e4, 0x00000118, 0x4e475349, 0x000000b0, 0x00000006, 0x00000008, 0x00000098, + 0x00000000, 0x00000001, 0x00000003, 0x00000000, 0x0000000f, 0x000000a4, 0x00000000, 0x00000000, + 0x00000003, 0x00000001, 0x00000303, 0x000000a4, 0x00000004, 0x00000000, 0x00000003, 0x00000001, + 0x00000404, 0x000000a4, 0x00000001, 0x00000000, 0x00000003, 0x00000002, 0x00000101, 0x000000a4, + 0x00000002, 0x00000000, 0x00000001, 0x00000002, 0x00000202, 0x000000a4, 0x00000003, 0x00000000, + 0x00000001, 0x00000002, 0x00000404, 0x505f5653, 0x7469736f, 0x006e6f69, 0x43584554, 0x44524f4f, + 0xababab00, 0x4e47534f, 0x0000002c, 0x00000001, 0x00000008, 0x00000020, 0x00000000, 0x00000000, + 0x00000003, 0x00000000, 0x0000000f, 0x545f5653, 0x65677261, 0xabab0074, 0x52444853, 0x000000bc, + 0x00000040, 0x0000002f, 0x03001062, 0x00101032, 0x00000001, 0x03001062, 0x00101042, 0x00000001, + 0x03000862, 0x00101012, 0x00000002, 0x03000862, 0x00101022, 0x00000002, 0x03000862, 0x00101042, + 0x00000002, 0x03000065, 0x001020f2, 0x00000000, 0x02000068, 0x00000001, 0x0700001e, 0x00100012, + 0x00000000, 0x0010101a, 0x00000002, 0x0010102a, 0x00000002, 0x05000056, 0x00102022, 0x00000000, + 0x0010000a, 0x00000000, 0x07000000, 0x00102012, 0x00000000, 0x0010101a, 0x00000001, 0x0010100a, + 0x00000002, 0x05000036, 0x001020c2, 0x00000000, 0x001012a6, 0x00000001, 0x0100003e, + }; + static const D3D10_INPUT_ELEMENT_DESC layout_desc[] = + { + {"SV_POSITION", 0, DXGI_FORMAT_R32G32_FLOAT, 0, 0, D3D10_INPUT_PER_VERTEX_DATA, 0}, + {"TEXCOORD", 0, DXGI_FORMAT_R32G32_FLOAT, 0, 8, D3D10_INPUT_PER_VERTEX_DATA, 0}, + {"TEXCOORD", 1, DXGI_FORMAT_R32_FLOAT, 0, 16, D3D10_INPUT_PER_VERTEX_DATA, 0}, + {"TEXCOORD", 2, DXGI_FORMAT_R32_UINT, 0, 20, D3D10_INPUT_PER_VERTEX_DATA, 0}, + {"TEXCOORD", 3, DXGI_FORMAT_R32_UINT, 0, 24, D3D10_INPUT_PER_VERTEX_DATA, 0}, + {"TEXCOORD", 4, DXGI_FORMAT_R32_FLOAT, 0, 28, D3D10_INPUT_PER_VERTEX_DATA, 0}, + }; + static const struct + { + struct vec2 position; + struct vec2 t0; + float t1; + unsigned int t2; + unsigned int t3; + float t4; + } + quad[] = + { + {{-1.0f, -1.0f}, {3.0f, 5.0f}, 5.0f, 2, 6, 7.0f}, + {{-1.0f, 1.0f}, {3.0f, 5.0f}, 5.0f, 2, 6, 7.0f}, + {{ 1.0f, -1.0f}, {3.0f, 5.0f}, 5.0f, 2, 6, 7.0f}, + {{ 1.0f, 1.0f}, {3.0f, 5.0f}, 5.0f, 2, 6, 7.0f}, + }; + static const float white[] = {1.0f, 1.0f, 1.0f, 1.0f}; + static const struct vec4 expected_result = {10.0f, 8.0f, 7.0f, 3.0f}; + + if (!init_test_context(&test_context)) + return; + + device = test_context.device; + + hr = ID3D10Device_CreateVertexShader(device, vs_code, sizeof(vs_code), &vs); + ok(SUCCEEDED(hr), "Failed to create vertex shader, hr %#x.\n", hr); + hr = ID3D10Device_CreatePixelShader(device, ps_code, sizeof(ps_code), &ps); + ok(SUCCEEDED(hr), "Failed to create pixel shader, hr %#x.\n", hr); + + ID3D10Texture2D_GetDesc(test_context.backbuffer, &texture_desc); + texture_desc.Format = DXGI_FORMAT_R32G32B32A32_FLOAT; + hr = ID3D10Device_CreateTexture2D(device, &texture_desc, NULL, &render_target); + ok(SUCCEEDED(hr), "Failed to create texture, hr %#x.\n", hr); + + hr = ID3D10Device_CreateRenderTargetView(device, (ID3D10Resource *)render_target, NULL, &rtv); + ok(SUCCEEDED(hr), "Failed to create render target view, hr %#x.\n", hr); + + hr = ID3D10Device_CreateInputLayout(device, layout_desc, ARRAY_SIZE(layout_desc), + vs_code, sizeof(vs_code), &input_layout); + ok(SUCCEEDED(hr), "Failed to create input layout, hr %#x.\n", hr); + + vb = create_buffer(device, D3D10_BIND_VERTEX_BUFFER, sizeof(quad), quad); + + ID3D10Device_ClearRenderTargetView(device, rtv, white); + + ID3D10Device_OMSetRenderTargets(device, 1, &rtv, NULL); + + ID3D10Device_PSSetShader(device, ps); + ID3D10Device_VSSetShader(device, vs); + ID3D10Device_IASetInputLayout(device, input_layout); + ID3D10Device_IASetPrimitiveTopology(device, D3D10_PRIMITIVE_TOPOLOGY_TRIANGLESTRIP); + offset = 0; + stride = sizeof(*quad); + ID3D10Device_IASetVertexBuffers(device, 0, 1, &vb, &stride, &offset); + ID3D10Device_Draw(device, 4, 0); + check_texture_vec4(render_target, &expected_result, 0); + + ID3D10InputLayout_Release(input_layout); + ID3D10RenderTargetView_Release(rtv); + ID3D10Texture2D_Release(render_target); + ID3D10PixelShader_Release(ps); + ID3D10VertexShader_Release(vs); + ID3D10Buffer_Release(vb); + release_test_context(&test_context); +} + static void test_sm4_if_instruction(void) { struct d3d10core_test_context test_context; @@ -12598,6 +12757,7 @@ START_TEST(device) test_clear_depth_stencil_view(); test_draw_depth_only(); test_shader_stage_input_output_matching(); + test_shader_interstage_interface(); test_sm4_if_instruction(); test_sm4_breakc_instruction(); test_sm4_continuec_instruction();

1 0

Józef Kucia : wined3d: Skip unhandled stream output components.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: wine Branch: master Commit: 0832b5cded389096dcf74ac93367ae4ee4b8d35b URL: http://source.winehq.org/git/wine.git/?a=commit;h=0832b5cded389096dcf74ac93… Author: Józef Kucia <jkucia(a)codeweavers.com> Date: Thu Oct 19 10:07:27 2017 +0200 wined3d: Skip unhandled stream output components. This should at least avoid trashing other stream output elements. Signed-off-by: Józef Kucia <jkucia(a)codeweavers.com> Signed-off-by: Henri Verbeet <hverbeet(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- dlls/wined3d/glsl_shader.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/dlls/wined3d/glsl_shader.c b/dlls/wined3d/glsl_shader.c index a03f179..108bd18 100644 --- a/dlls/wined3d/glsl_shader.c +++ b/dlls/wined3d/glsl_shader.c @@ -839,6 +839,8 @@ static void shader_glsl_generate_transform_feedback_varyings(const struct wined3 if (e->component_idx || e->component_count != 4) { FIXME("Unsupported component range %u-%u.\n", e->component_idx, e->component_count); + append_transform_feedback_skip_components(varyings, &count, + &strings, &length, buffer, e->component_count); continue; }

1 0

Francois Gouget : testbot: Document how to use powered off snapshots.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: tools Branch: master Commit: 79ff56652c602ca55f53e0d08ba6846fb67f63f5 URL: http://source.winehq.org/git/tools.git/?a=commit;h=79ff56652c602ca55f53e0d0… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Oct 18 15:38:51 2017 +0200 testbot: Document how to use powered off snapshots. RevertToSnapshot() will automatically boot up the VM if necessary. So all that is needed to use a powered off snapshot is making sure it will boot up to a usable state and making sure 3*$WaitForToolsInVM will give enough time to the VM to boot. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- testbot/bin/LibvirtTool.pl | 3 +++ testbot/doc/INSTALL.txt | 15 +++++++++++---- testbot/lib/WineTestBot/Config.pm | 5 +++-- testbot/lib/WineTestBot/LibvirtDomain.pm | 1 + 4 files changed, 18 insertions(+), 6 deletions(-) diff --git a/testbot/bin/LibvirtTool.pl b/testbot/bin/LibvirtTool.pl index 358eebf..149e850 100755 --- a/testbot/bin/LibvirtTool.pl +++ b/testbot/bin/LibvirtTool.pl @@ -243,6 +243,7 @@ sub Revert() LogMsg "Trying the revert anyway...\n"; } + # Revert the VM (and power it on if necessary) Debug(Elapsed($Start), " Reverting $VMKey to ", $VM->IdleSnapshot, "\n"); $ErrMessage = $Domain->RevertToSnapshot(); if (defined $ErrMessage) @@ -253,6 +254,8 @@ sub Revert() # The VM is now sleeping which may allow some tasks to run return 1 if (!ChangeStatus("reverting", "sleeping")); + # Check the TestAgent connection. Note that this may take some time + # if the VM needs to boot first. Debug(Elapsed($Start), " Trying the TestAgent connection\n"); LogMsg "Waiting for ". $VM->Name ." (up to ${WaitForToolsInVM}s per attempt)\n"; my $TA = $VM->GetAgent(); diff --git a/testbot/doc/INSTALL.txt b/testbot/doc/INSTALL.txt index 07919a3..0b95656 100644 --- a/testbot/doc/INSTALL.txt +++ b/testbot/doc/INSTALL.txt @@ -141,8 +141,11 @@ Dependencies: Where PORT is the $AgentPort that was configured in ConfigLocal.pl on the WineTestBot server, and SRCHOST is either omitted or the hostname of the WineTestBot server. -- Take a snapshot of the running VM. Make sure restoring this snapshot - will result in a running build VM. +- Take a snapshot of the VM. The shorter the revert time the better. This + usually implies taking a snapshot of the running VM as set up in the previous + step. However it is also possible to use snapshots of the powered off VM. In + that case make sure booting the VM will automatically start the TestAgent + server in the right configuration. - Register this VM as a build VM on the web site. @@ -156,8 +159,12 @@ Dependencies: Where PORT is the $AgentPort that was configured in ConfigLocal.pl on the WineTestBot server, and SRCHOST is either omitted or the hostname of the WineTestBot server. -- Take a snapshot of the running VM. Make sure restoring this snapshot - will result in a running Windows VM. +- Take a snapshot of the VM. The shorter the revert time the better. This + usually implies taking a snapshot of the running VM as set up in the previous + step. However it is also possible to use snapshots of the powered off VM. In + that case make sure booting the VM will automatically log in and start the + TestAgent server in the right configuration and with the appropriate + privileges. - Register this VM on the web site. On a production WineTestBot server you would likely want to make it an 'extra' VM until you have confirmed that it works as expected. diff --git a/testbot/lib/WineTestBot/Config.pm b/testbot/lib/WineTestBot/Config.pm index c5586c7..4f38633 100644 --- a/testbot/lib/WineTestBot/Config.pm +++ b/testbot/lib/WineTestBot/Config.pm @@ -71,8 +71,9 @@ $MaxRevertsWhileRunningVMs = 1; $MaxActiveVMs = 2; $MaxVMsWhenIdle = undef; -# How long to wait when connecting to the VM's TestAgent server after a revert -# (in seconds). +# How long to wait for each of the 3 connection attempts to the VM's TestAgent +# server after a revert (in seconds). If there are powered off snapshots this +# must be long enough for the VM to boot up first. $WaitForToolsInVM = 30; # How long to let the VM settle down after the revert before starting a task on # it (in seconds). diff --git a/testbot/lib/WineTestBot/LibvirtDomain.pm b/testbot/lib/WineTestBot/LibvirtDomain.pm index d449f9d..5fbff18 100644 --- a/testbot/lib/WineTestBot/LibvirtDomain.pm +++ b/testbot/lib/WineTestBot/LibvirtDomain.pm @@ -210,6 +210,7 @@ sub RevertToSnapshot($) my ($ErrMessage, $Domain, $Snapshot) = $self->_GetSnapshot($SnapshotName); return $ErrMessage if (defined $ErrMessage); + # Note that if the snapshot was of a powered off domain, this boots it up eval { $Snapshot->revert_to(Sys::Virt::DomainSnapshot::REVERT_RUNNING) }; return $@ ? $self->_Reset(_eval_err()) : $self->_UpdateStatus($Domain); }

1 0

Francois Gouget : testbot/LibvirtTool: Return a suitable exit code in ChangeStatus().
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: tools Branch: master Commit: 9c07f07c27c608a5c114b46f4bb2bc562079a477 URL: http://source.winehq.org/git/tools.git/?a=commit;h=9c07f07c27c608a5c114b46f… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Oct 18 20:09:07 2017 +0200 testbot/LibvirtTool: Return a suitable exit code in ChangeStatus(). This fixes the LibvirtTool exit code (which is fortunately not used) and simplifies the code. Document the FatalError() and ChangeStatus() functions, particularly their return code, or lack thereof. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- testbot/bin/LibvirtTool.pl | 36 ++++++++++++++++++++++++++++++++---- 1 file changed, 32 insertions(+), 4 deletions(-) diff --git a/testbot/bin/LibvirtTool.pl b/testbot/bin/LibvirtTool.pl index 149e850..6aaaf82 100755 --- a/testbot/bin/LibvirtTool.pl +++ b/testbot/bin/LibvirtTool.pl @@ -176,6 +176,18 @@ my $Start = Time(); my $CurrentStatus; +=pod +=over 12 + +=item C<FatalError()> + +Logs the fatal error, notifies the administrator and exits the process. + +This function never returns! + +=back +=cut + sub FatalError($) { my ($ErrMessage) = @_; @@ -200,6 +212,20 @@ sub FatalError($) exit 1; } +=pod +=over 12 + +=item C<ChangeStatus()> + +Checks that the VM status has not been tampered with and sets it to the new +value. + +Returns a value suitable for the process exit code: 0 in case of success, +1 otherwise. + +=back +=cut + sub ChangeStatus($$;$) { my ($From, $To, $Done) = @_; @@ -209,7 +235,9 @@ sub ChangeStatus($$;$) if (!$VM or (defined $From and $VM->Status ne $From)) { LogMsg "Not changing status\n"; - return undef; + # Not changing the status is allowed in debug mode so the VM can be + # put in 'maintenance' mode to avoid interference from the TestBot. + return $Debug ? 0 : 1; } $VM->Status($To); @@ -220,7 +248,7 @@ sub ChangeStatus($$;$) FatalError("Could not change the $VMKey VM status: $ErrMessage\n"); } $CurrentStatus = $To; - return 1; + return 0; } sub Revert() @@ -252,7 +280,7 @@ sub Revert() } # The VM is now sleeping which may allow some tasks to run - return 1 if (!ChangeStatus("reverting", "sleeping")); + return 1 if (ChangeStatus("reverting", "sleeping")); # Check the TestAgent connection. Note that this may take some time # if the VM needs to boot first. @@ -275,7 +303,7 @@ sub Revert() sleep($SleepAfterRevert); } - return ChangeStatus("sleeping", "idle", "done") ? 0 : 1; + return ChangeStatus("sleeping", "idle", "done"); }

1 0

Francois Gouget : testbot: Make it possible to power off VMs using LibvirtTool.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: tools Branch: master Commit: 74aeb1e5cb401da6c11e351c1c9afb0196ed5f30 URL: http://source.winehq.org/git/tools.git/?a=commit;h=74aeb1e5cb401da6c11e351c… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Oct 18 20:14:32 2017 +0200 testbot: Make it possible to power off VMs using LibvirtTool. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- testbot/bin/LibvirtTool.pl | 26 +++++++++++++----- testbot/lib/WineTestBot/Jobs.pm | 3 ++- testbot/lib/WineTestBot/VMs.pm | 60 +++++++++++++++++++++++++++++++++++------ 3 files changed, 74 insertions(+), 15 deletions(-) diff --git a/testbot/bin/LibvirtTool.pl b/testbot/bin/LibvirtTool.pl index 6aaaf82..64f0575 100755 --- a/testbot/bin/LibvirtTool.pl +++ b/testbot/bin/LibvirtTool.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl -Tw # -*- Mode: Perl; perl-indent-level: 2; indent-tabs-mode: nil -*- # -# Reverts a VM so that it is ready to run jobs. -# This operation can take quite a bit of time, particularly in case of -# network trouble, and thus is best performed in a separate process. +# Performs poweroff and revert operations on the specified VM. +# These operations can take quite a bit of time, particularly in case of +# network trouble, and thus are best performed in a separate process. # # Copyright 2009 Ge van Geldorp # Copyright 2012-2017 Francois Gouget @@ -104,7 +104,7 @@ while (@ARGV) { $LogOnly = 1; } - elsif ($Arg eq "revert") + elsif ($Arg =~ /^(?:poweroff|revert)$/) { $Action = $Arg; } @@ -163,7 +163,7 @@ if (!defined $Usage) } if (defined $Usage) { - print "Usage: $Name0 [--debug] [--log-only] [--help] revert VMName\n"; + print "Usage: $Name0 [--debug] [--log-only] [--help] (poweroff|revert) VMName\n"; exit $Usage; } @@ -251,6 +251,16 @@ sub ChangeStatus($$;$) return 0; } +sub PowerOff() +{ + # Power off VMs no matter what their initial status is + $CurrentStatus = $VM->Status; + my $ErrMessage = $VM->GetDomain()->PowerOff(1); + FatalError("$ErrMessage\n") if (defined $ErrMessage); + + return ChangeStatus(undef, "off", "done"); +} + sub Revert() { my $VM = CreateVMs()->GetItem($VMKey); @@ -308,7 +318,11 @@ sub Revert() my $Rc; -if ($Action eq "revert") +if ($Action eq "poweroff") +{ + $Rc = PowerOff(); +} +elsif ($Action eq "revert") { $Rc = Revert(); } diff --git a/testbot/lib/WineTestBot/Jobs.pm b/testbot/lib/WineTestBot/Jobs.pm index c26ff92..26538fa 100644 --- a/testbot/lib/WineTestBot/Jobs.pm +++ b/testbot/lib/WineTestBot/Jobs.pm @@ -562,7 +562,8 @@ sub ScheduleOnHost($$$) $SleepingCount++; $PrepareNextStep = 1; } - elsif ($VMStatus eq "off" || $VMStatus eq "dirty") + elsif (($VMStatus eq "off" or $VMStatus eq "dirty") and + !$VM->HasRunningChild()) { $RevertNiceness++; $VMsToRevert{$VMKey} = $RevertNiceness; diff --git a/testbot/lib/WineTestBot/VMs.pm b/testbot/lib/WineTestBot/VMs.pm index 86dee6c..a6b2a8b 100644 --- a/testbot/lib/WineTestBot/VMs.pm +++ b/testbot/lib/WineTestBot/VMs.pm @@ -241,7 +241,7 @@ Returns true if the VM status is compatible with ChildPid being set. sub CanHaveChild($) { my ($self) = @_; - return ($self->Status =~ /^(?:reverting|sleeping)$/); + return ($self->Status =~ /^(?:dirty|reverting|sleeping)$/); } =pod @@ -307,12 +307,12 @@ sub OnSaved($) } } -sub RunRevert($) +sub _RunVMTool($$$) { - my ($self) = @_; + my ($self, $NewStatus, $Args) = @_; my $Tool = "LibvirtTool.pl"; - my $Args = ["$BinDir/$Tool", "--log-only", "revert", $self->GetKey()]; + unshift @$Args, "$BinDir/$Tool"; # There are two $VM->ChildPid race conditions to avoid: # - Between the child process and new calls to ScheduleJobs(). @@ -321,8 +321,8 @@ sub RunRevert($) # which would result in a new child being started. # Note that the status is not guaranteed to change in _RunVMTool() so it # cannot be relied on to avoid this race. - # - Between RunRevert() and the exit of the child process. - # The child process may exit before RunRevert() gets around to setting + # - Between _RunVMTool() and the exit of the child process. + # The child process may exit before _RunVMTool() gets around to setting # ChildPid after the fork(). This would result in ChildPid remaining set # indefinitely. # So set ChildPid in the parent and synchronize with the child so it only @@ -347,7 +347,7 @@ sub RunRevert($) close($fd_read); # Set the Status and ChildPid - $self->Status("reverting"); + $self->Status($NewStatus); $self->ChildPid($Pid); my ($ErrProperty, $ErrMessage) = $self->Save(); if ($ErrMessage) @@ -396,6 +396,51 @@ sub RunRevert($) exit 1; } +=pod +=over 12 + +=item C<RunPowerOff()> + +Powers off the VM so that it stops using resources. + +The power off need not perform a clean shut down of the guest OS. +This operation can take a long time so it is performed in a separate process. + +=back +=cut + +sub RunPowerOff($) +{ + my ($self) = @_; + # This can be used to power off VMs from any state, including 'idle' but we + # don't want the job scheduler to think it can use the VM while it is being + # powered off. So force the status to dirty. + return $self->_RunVMTool("dirty", ["--log-only", "poweroff", $self->GetKey()]); +} + +=pod +=over 12 + +=item C<RunRevert()> + +Reverts the VM so that it is ready to run jobs. + +Note that in addition to the hypervisor revert operation this implies checking +that it responds to our commands ($WaitForToolsInVM) and possibly letting the +VM settle down ($SleepAfterRevert). If this operation fails the administrator +is notified and the VM is marked as offline. + +This operation can take a long time so it is performed in a separate process. + +=back +=cut + +sub RunRevert($) +{ + my ($self) = @_; + return $self->_RunVMTool("reverting", ["--log-only", "revert", $self->GetKey()]); +} + package WineTestBot::VMs; @@ -430,7 +475,6 @@ BEGIN CreateEnumPropertyDescriptor("Type", "Type of VM", !1, 1, ['win32', 'win64', 'build']), CreateEnumPropertyDescriptor("Role", "VM Role", !1, 1, ['extra', 'base', 'winetest', 'retired', 'deleted']), CreateEnumPropertyDescriptor("Status", "Current status", !1, 1, ['dirty', 'reverting', 'sleeping', 'idle', 'running', 'off', 'offline', 'maintenance']), - # Note: ChildPid is only valid when Status == 'reverting' or 'sleeping'. CreateBasicPropertyDescriptor("ChildPid", "Child process id", !1, !1, "N", 5), CreateBasicPropertyDescriptor("VirtURI", "LibVirt URI of the VM", !1, 1, "A", 64), CreateBasicPropertyDescriptor("VirtDomain", "LibVirt Domain for the VM", !1, 1, "A", 32),

1 0

Francois Gouget : testbot: Tweak the jobs scheduler to use LibvirtTool to power off VMs.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: tools Branch: master Commit: 3b323fcebc2e43c3cc381e248e6b79aa64853fac URL: http://source.winehq.org/git/tools.git/?a=commit;h=3b323fcebc2e43c3cc381e24… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Oct 18 20:14:42 2017 +0200 testbot: Tweak the jobs scheduler to use LibvirtTool to power off VMs. The main impact is that powering off a VM is now asynchronous and must not be left alone by the scheduler while they are being powered off. To that end VMs that are being powered off keep their dirty status but have a ChildPid which separates them from 'fresh' dirty VMs. This also requires not ignoring the dirty to off VM status transitions in HandleVMStatusChange() otherwise the scheduler may miss on an opportunity to spin up some idle VMs for future jobs. Generally speaking HandleVMStatusChange() should not be second guessing the scheduler anyway so remove all filtering. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- testbot/bin/Engine.pl | 12 ++++-------- testbot/lib/WineTestBot/Jobs.pm | 43 ++++++++++++++++++++++++----------------- 2 files changed, 29 insertions(+), 26 deletions(-) diff --git a/testbot/bin/Engine.pl b/testbot/bin/Engine.pl index b9c6ceb..9c461df 100755 --- a/testbot/bin/Engine.pl +++ b/testbot/bin/Engine.pl @@ -380,15 +380,11 @@ sub HandleVMStatusChange($$$) return "0Invalid status"; } - if ($OldStatus eq "reverting" || $OldStatus eq "running" || - $NewStatus eq "idle" || $NewStatus eq "dirty") + my $ErrMessage = ScheduleJobs(); + if (defined($ErrMessage)) { - my $ErrMessage = ScheduleJobs(); - if (defined($ErrMessage)) - { - LogMsg "Scheduling problem in HandleVMStatusChange: $ErrMessage\n"; - return "0$ErrMessage"; - } + LogMsg "Scheduling problem in HandleVMStatusChange: $ErrMessage\n"; + return "0$ErrMessage"; } return "1OK"; diff --git a/testbot/lib/WineTestBot/Jobs.pm b/testbot/lib/WineTestBot/Jobs.pm index 26538fa..6e7937f 100644 --- a/testbot/lib/WineTestBot/Jobs.pm +++ b/testbot/lib/WineTestBot/Jobs.pm @@ -591,13 +591,14 @@ sub ScheduleOnHost($$$) # Figure out how many VMs we will actually be able to revert now and only # keep the highest priority ones. my @SortedVMsToRevert = sort { $VMsToRevert{$a} <=> $VMsToRevert{$b} } keys %VMsToRevert; - # Sleeping VMs will soon be running my $MaxReverts = ($RunningCount > 0) ? $MaxRevertsWhileRunningVMs : $MaxRevertingVMs; - my $ActiveCount = $IdleCount + $SleepingCount + $RunningCount + $RevertingCount; + my $ActiveCount = $IdleCount + $RunningCount + $RevertingCount + $SleepingCount + @DirtyVMs; + # This is the number of VMs we would revert if idle and dirty VMs did not + # stand in the way. And those that do will be shut down. my $RevertableCount = min(scalar(@SortedVMsToRevert), $MaxReverts - $RevertingCount, - $MaxActiveVMs - ($ActiveCount - $IdleCount)); + $MaxActiveVMs - ($ActiveCount - $IdleCount - @DirtyVMs)); if ($RevertableCount < @SortedVMsToRevert) { $RevertableCount = 0 if ($RevertableCount < 0); @@ -613,19 +614,20 @@ sub ScheduleOnHost($$$) # resources while waiting for their turn. foreach my $VMKey (@DirtyVMs) { - if (!exists $VMsToRevert{$VMKey}) - { - my $VM = $HostVMs->GetItem($VMKey); - # FIXME Domain operations can be slow and should not be run by the Engine - my $ErrMessage = $VM->GetDomain()->PowerOff(); - return $ErrMessage if (defined $ErrMessage); - } + next if (exists $VMsToRevert{$VMKey}); + + my $VM = $HostVMs->GetItem($VMKey); + next if ($VM->Status ne "dirty" or defined $VM->ChildPid); + + my $ErrMessage = $VM->RunPowerOff(); + return $ErrMessage if (defined $ErrMessage); } # Power off some idle VMs we don't need immediately so we can revert more # of the VMs we need now. + my $PlannedActiveCount = $ActiveCount - @DirtyVMs + @SortedVMsToRevert; if ($IdleCount > 0 && @SortedVMsToRevert > 0 && - $ActiveCount + @SortedVMsToRevert > $MaxActiveVMs) + $PlannedActiveCount > $MaxActiveVMs) { # Sort from least important to most important my @SortedIdleVMs = sort { $VMPriorities{$a} <=> $VMPriorities{$b} } keys %IdleVMs; @@ -634,25 +636,30 @@ sub ScheduleOnHost($$$) my $VM = $HostVMs->GetItem($VMKey); next if (!$IdleVMs{$VMKey}); - # FIXME Domain operations can be slow and should not be run by the Engine - my $ErrMessage = $VM->GetDomain()->PowerOff(); + my $ErrMessage = $VM->RunPowerOff(); return $ErrMessage if (defined $ErrMessage); - $IdleCount--; - $ActiveCount--; - last if ($ActiveCount + @SortedVMsToRevert <= $MaxActiveVMs); + $PlannedActiveCount--; + last if ($PlannedActiveCount <= $MaxActiveVMs); } + # The scheduler will be run again when these VMs have been powered off and + # then we will do the reverts. In the meantime don't change $ActiveCount. } # Revert the VMs that are blocking jobs foreach my $VMKey (@SortedVMsToRevert) { + last if ($RevertingCount == $MaxReverts); + my $VM = $HostVMs->GetItem($VMKey); + next if ($VM->Status eq "off" and $ActiveCount >= $MaxActiveVMs); + delete $VMPriorities{$VMKey}; my $ErrMessage = $VM->RunRevert(); return $ErrMessage if (defined $ErrMessage); + + $RevertingCount++; + $ActiveCount++ if ($VM->Status eq "off"); } - $RevertingCount += @SortedVMsToRevert; - $ActiveCount += @SortedVMsToRevert; # Prepare some VMs for the current jobs next step foreach my $VMKey (@VMsNext)

1 0

Francois Gouget : testbot: Avoid blocking virtualization functions in the Engine initialization.
by Alexandre Julliard 19 Oct '17

19 Oct '17

Module: tools Branch: master Commit: 548f7e305da1257b7b5e9a61d597c3d3be89f442 URL: http://source.winehq.org/git/tools.git/?a=commit;h=548f7e305da1257b7b5e9a61… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Oct 18 20:16:44 2017 +0200 testbot: Avoid blocking virtualization functions in the Engine initialization. The Cleanup() method now uses LibvirtTool to verify that idle VMs are still good and to power off VMs. Note that the VMs are marked dirty while LibvirtTool performs the idle check to prevent the scheduler from using them. Signed-off-by: Francois Gouget <fgouget(a)codeweavers.com> Signed-off-by: Alexandre Julliard <julliard(a)winehq.org> --- testbot/bin/Engine.pl | 56 ++++++++++++++------------------ testbot/bin/LibvirtTool.pl | 24 ++++++++++++-- testbot/lib/WineTestBot/LibvirtDomain.pm | 21 ++++++++++++ testbot/lib/WineTestBot/VMs.pm | 17 ++++++++++ 4 files changed, 84 insertions(+), 34 deletions(-) diff --git a/testbot/bin/Engine.pl b/testbot/bin/Engine.pl index 9c461df..02c361c 100755 --- a/testbot/bin/Engine.pl +++ b/testbot/bin/Engine.pl @@ -112,32 +112,27 @@ sub Cleanup(;$$) foreach my $Task (@{$Tasks->GetItems()}) { my $TaskKey = join("/", $Job->Id, $Step->No, $Task->No); + my $ChildPid = $Task->ChildPid; + $ChildPid = undef if (defined $ChildPid and !kill(0, $ChildPid)); my $Requeue; - if (!defined $Task->ChildPid) + if (!defined $ChildPid) { # That task's process died somehow. $Requeue = 1; } - elsif (!$Task->VM->GetDomain()->IsPoweredOn()) + elsif ($Task->VM->Status ne "running") { - # A running task should have a powered on VM. + # The Task and VM status should match. $Requeue = 1; - # Kill the task process if it's still there. - kill("TERM", $Task->ChildPid); + kill("TERM", $ChildPid); } elsif ($KillTasks) { # Kill the task and requeue. Note that since the VM is still running # we're not in the computer reboot case so ChildPid is probably # still valid. - kill("TERM", $Task->ChildPid); - $Requeue = 1; - } - elsif (!kill(0, $Task->ChildPid)) - { - # The event that caused the WineTestBot server to restart probably - # also killed the task's child process. + kill("TERM", $ChildPid); $Requeue = 1; } else @@ -181,36 +176,35 @@ sub Cleanup(;$$) next; } - my $Domain = $VM->GetDomain(); - if ($Domain->IsPoweredOn()) + if ($VM->HasRunningChild()) { if ($KillVMs) { $VM->KillChild(); + $VM->RunPowerOff(); } - elsif ($VM->Status eq "idle") + elsif (!$VM->CanHaveChild()) { - # Assume these are still ready for use - next; - } - elsif ($VM->CanHaveChild() and $VM->HasRunningChild()) - { - # This VM is still being reverted. Let that process run its course. - LogMsg "$VMKey is being reverted\n"; - next; + # The VM should not have a process. + $VM->KillChild(); + $VM->RunPowerOff(); } - LogMsg "Powering off $VMKey\n"; - $Domain->PowerOff(); + # else let the process finish its work } else { - next if ($VM->Status eq "off"); - LogMsg "Marking $VMKey as off\n"; + if ($VM->Status eq "idle") + { + $VM->RunCheckIdle(); + } + else + { + # Power off the VM, even if its status is already off. + # This is the simplest way to resync the VM status field. + # Also powering off a powered off VM will detect offline VMs. + $VM->RunPowerOff(); + } } - - $VM->Status('off'); - $VM->ChildPid(undef); - $VM->Save(); } } diff --git a/testbot/bin/LibvirtTool.pl b/testbot/bin/LibvirtTool.pl index 64f0575..fcc0e81 100755 --- a/testbot/bin/LibvirtTool.pl +++ b/testbot/bin/LibvirtTool.pl @@ -104,7 +104,7 @@ while (@ARGV) { $LogOnly = 1; } - elsif ($Arg =~ /^(?:poweroff|revert)$/) + elsif ($Arg =~ /^(?:checkidle|poweroff|revert)$/) { $Action = $Arg; } @@ -163,7 +163,7 @@ if (!defined $Usage) } if (defined $Usage) { - print "Usage: $Name0 [--debug] [--log-only] [--help] (poweroff|revert) VMName\n"; + print "Usage: $Name0 [--debug] [--log-only] [--help] (checkidle|poweroff|revert) VMName\n"; exit $Usage; } @@ -261,6 +261,20 @@ sub PowerOff() return ChangeStatus(undef, "off", "done"); } +sub CheckIdle() +{ + $CurrentStatus = "dirty"; + my $IsPoweredOn = $VM->GetDomain()->IsPoweredOn(); + return ChangeStatus("dirty", "offline", "done") if (!defined $IsPoweredOn); + return ChangeStatus("dirty", "off", "done") if (!$IsPoweredOn); + + my ($ErrMessage, $SnapshotName) = $VM->GetDomain()->GetSnapshotName(); + FatalError("$ErrMessage\n") if (defined $ErrMessage); + return PowerOff() if ($SnapshotName ne $VM->IdleSnapshot); + + return ChangeStatus("dirty", "idle", "done"); +} + sub Revert() { my $VM = CreateVMs()->GetItem($VMKey); @@ -318,7 +332,11 @@ sub Revert() my $Rc; -if ($Action eq "poweroff") +if ($Action eq "checkidle") +{ + $Rc = CheckIdle(); +} +elsif ($Action eq "poweroff") { $Rc = PowerOff(); } diff --git a/testbot/lib/WineTestBot/LibvirtDomain.pm b/testbot/lib/WineTestBot/LibvirtDomain.pm index 5fbff18..20d619a 100644 --- a/testbot/lib/WineTestBot/LibvirtDomain.pm +++ b/testbot/lib/WineTestBot/LibvirtDomain.pm @@ -202,6 +202,27 @@ sub _GetSnapshot($$) return (_eval_err() || "Snapshot '$SnapshotName' not found", undef, undef); } +sub GetSnapshotName($) +{ + my ($self) = @_; + + my ($ErrMessage, $Domain) = $self->_GetDomain(); + return ($ErrMessage, undef) if (defined $ErrMessage); + + my $SnapshotName; + eval + { + if ($Domain->has_current_snapshot()) + { + my $Snapshot = $Domain->current_snapshot(); + $SnapshotName = $Snapshot->get_name() if ($Snapshot); + } + }; + return $self->_Reset(_eval_err(), undef) if ($@); + + return (undef, $SnapshotName); +} + sub RevertToSnapshot($) { my ($self) = @_; diff --git a/testbot/lib/WineTestBot/VMs.pm b/testbot/lib/WineTestBot/VMs.pm index a6b2a8b..377eb0a 100644 --- a/testbot/lib/WineTestBot/VMs.pm +++ b/testbot/lib/WineTestBot/VMs.pm @@ -399,6 +399,23 @@ sub _RunVMTool($$$) =pod =over 12 +=item C<RunCheckIdle()> + +If the virtual machine state matches that of this VM instance, sets its status +to idle. If not the VM is simply marked as off. While this is happening the +VM status is set to dirty so the job scheduler does not try to use it. + +This operation can take a long time so it is performed in a separate process. + +=back +=cut + +sub RunCheckIdle($) +{ + my ($self) = @_; + return $self->_RunVMTool("dirty", ["--log-only", "checkidle", $self->GetKey()]); +} + =item C<RunPowerOff()> Powers off the VM so that it stops using resources.

1 0