#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 1;
use Test::Easy::DataDriven qw(run_where);

# toss an error if your left-arg isn't a scalar ref
{
  my $foo = 'dilation-compliant';

  my $error = do {
    local $@;

    eval {
      run_where(
        [$foo => 'aargh I shoulda provided \$foo, not $foo, to the left of that =>!'],
        sub {
          ok( 0, "didn't expect to hit this..." );
        }
       );
    };

    $@;
  };

  like(
    $error,
    qr{error: you gave me a bare scalar - give me a scalar reference instead at.*?Test/Easy/DataDriven.pm line \d+.*eval \{\.\.\.\} called at.*? line \d+}sm,
    'Asserted with a somewhat-helpful stacktrace on weird args'
  );
}