use strict;
use Scalar::Util qw(weaken);
my $lens_out;
{
my $lens = new_ok('Web::Dash::Lens', [
service_name => 'com.canonical.Unity.Lens.Files',
object_name => '/com/canonical/unity/lens/files',
]);
$lens_out = $lens;
weaken $lens_out;
my $hint = $lens->search_hint_sync();
isnt($hint, "", "obtain search_hint OK");
my @results = $lens->search_sync('hoge');
}
is($lens_out, undef, "Lens is destroyed properly.");
done_testing();