use base "installedtest";
use strict;
use testapi;
use utils;

# This script tests if a crash report can be deleted.

sub run {
    my $self = shift;
   	
   	# Check that the crash is shown in the left bar.
   	assert_screen("bugreporter_leftbar_crash_shown");
   	# Click on the Delete button.
	assert_and_click("bugreporter_button_delete");
	# Check that the crash has disappeared from the left bar.
	if (check_screen("bugreporter_leftbar_crash_shown")) {
		die("It seems that the crash report could not be deleted.");
	}
}

sub test_flags {
    return {always_rollback => 1};
}

1;

# vim: set sw=4 et: