-- eval-file \
* wp-content/plugins/bw-lead-ai/tests/menu-routing.php
*/
if ( ! defined( 'ABSPATH' ) ) {
fwrite( STDERR, "Run via: wp eval-file\n" );
exit( 1 );
}
require_once ABSPATH . 'wp-admin/includes/plugin.php';
require_once ABSPATH . 'wp-admin/includes/screen.php';
require_once ABSPATH . 'wp-admin/includes/template.php';
$admins = get_users( array( 'role' => 'administrator', 'number' => 1, 'fields' => 'ID' ) );
if ( empty( $admins ) ) {
fwrite( STDERR, "No administrator to run as.\n" );
exit( 1 );
}
wp_set_current_user( (int) $admins[0] );
// wp eval-file includes this inside a function, so top-level variables are NOT
// globals. Counters live in $GLOBALS explicitly or the summary lies.
$GLOBALS['bwlai_fail'] = array();
$GLOBALS['bwlai_ok'] = 0;
function bwlai_ok( $msg ) {
$GLOBALS['bwlai_ok']++;
echo " PASS $msg\n";
}
function bwlai_fail( $msg ) {
$GLOBALS['bwlai_fail'][] = $msg;
echo " FAIL $msg\n";
}
/** The two above, for the many checks that are just a boolean. */
function bwlai_assert( $condition, $msg ) {
if ( $condition ) {
bwlai_ok( $msg );
return true;
}
bwlai_fail( $msg );
return false;
}
// Any notice/warning/deprecation raised while rendering is a failure, not noise.
$notices = array();
set_error_handler(
function ( $no, $str, $file, $line ) use ( &$notices ) {
$notices[] = sprintf( '%s in %s:%d', $str, basename( $file ), $line );
return true;
}
);
$GLOBALS['pagenow'] = 'admin.php';
do_action( 'admin_menu' );
echo "\n== 1. The menu as WordPress assembled it ==\n";
$parent = BW_Lead_AI_Admin::PAGE_SLUG;
$entries = isset( $GLOBALS['submenu'][ $parent ] ) ? $GLOBALS['submenu'][ $parent ] : array();
if ( empty( $entries ) ) {
bwlai_fail( 'no submenu registered under ' . $parent );
}
foreach ( $entries as $i => $entry ) {
printf( " [%d] %-18s cap=%-14s slug=%s\n", $i, $entry[0], $entry[1], $entry[2] );
}
$slugs = wp_list_pluck( $entries, 2 );
if ( ! empty( $slugs ) && end( $slugs ) === $parent ) {
bwlai_ok( 'Settings is last (it owns the parent slug)' );
} else {
bwlai_fail( 'Settings is not the last entry: ' . implode( ' | ', $slugs ) );
}
if ( ! in_array( BW_Lead_AI_Handoff_Admin::LIST_SLUG, $slugs, true ) ) {
bwlai_ok( 'the old Visitor Journeys entry is gone from the menu' );
} else {
bwlai_fail( 'the journeys list still has its own submenu entry' );
}
echo "\n== 2. Every entry resolves (trap 1: the \$submenu capability lookup) ==\n";
foreach ( $entries as $entry ) {
$slug = $entry[2];
$cap = $entry[1];
// Exactly what wp-admin/admin.php does before deciding to serve or to 403.
$GLOBALS['plugin_page'] = $slug;
$GLOBALS['parent_file'] = null;
$hook = get_plugin_page_hook( $slug, 'admin.php' );
if ( ! $hook ) {
bwlai_fail( "$slug: no page hook — this is the \"you are not allowed to access this page\" bug" );
continue;
}
if ( ! current_user_can( $cap ) ) {
bwlai_fail( "$slug: administrator lacks the declared capability $cap" );
continue;
}
bwlai_ok( "$slug resolves to $hook (cap $cap)" );
}
echo "\n== 3. Every screen renders, silently ==\n";
$screens = array(
'Reports' => array( BW_Lead_AI_Admin::REPORTS_SLUG, array() ),
// One entry per value of BW_Lead_AI_Admin::REPORTS_VIEWS, plus the two cases a
// whitelist exists for: a value that is not on it, and the value being absent.
// Both must land on the aggregate report rather than on a blank screen.
'Reports→Data Quality' => array( BW_Lead_AI_Admin::REPORTS_SLUG, array( 'view' => 'quality' ) ),
'Reports→AI Analysis' => array( BW_Lead_AI_Admin::REPORTS_SLUG, array( 'view' => 'ai' ) ),
'Reports→Journeys' => array( BW_Lead_AI_Admin::REPORTS_SLUG, array( 'view' => 'journeys' ) ),
'Reports→bogus view' => array( BW_Lead_AI_Admin::REPORTS_SLUG, array( 'view' => 'no-such-view' ) ),
'Reports→quality, 90 days, first click, mediums' => array(
BW_Lead_AI_Admin::REPORTS_SLUG,
array( 'view' => 'quality', 'range' => '90', 'attribution' => 'first', 'grouping' => 'medium' ),
),
'UTM Builder' => array( BW_Lead_AI_Admin::UTM_SLUG, array() ),
'Help' => array( BW_Lead_AI_Admin::HELP_SLUG, array() ),
'Settings' => array( BW_Lead_AI_Admin::PAGE_SLUG, array() ),
'Tracking Rules' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'settings' ) ),
'Interactions' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'events' ) ),
'Journey Storage' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'journeys' ) ),
'Cross-domain' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'handoff' ) ),
'Form Field Mapping' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'targets' ) ),
'Other Settings' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'other' ) ),
'Test' => array( BW_Lead_AI_Admin::PAGE_SLUG, array( 'tab' => 'test' ) ),
);
$html = array();
foreach ( $screens as $label => $spec ) {
list( $slug, $args ) = $spec;
$_GET = array_merge( array( 'page' => $slug ), $args );
$_REQUEST = $_GET;
$notices = array();
$callback = ( BW_Lead_AI_Admin::PAGE_SLUG === $slug )
? array( BW_Lead_AI_Admin::instance(), 'render_page' )
: ( ( BW_Lead_AI_Admin::REPORTS_SLUG === $slug )
? array( BW_Lead_AI_Admin::instance(), 'render_reports_page' )
: ( ( BW_Lead_AI_Admin::UTM_SLUG === $slug )
? array( BW_Lead_AI_Admin::instance(), 'render_utm_page' )
: array( BW_Lead_AI_Admin::instance(), 'render_help_page' ) ) );
ob_start();
call_user_func( $callback );
$out = (string) ob_get_clean();
$html[ $label ] = $out;
$problems = array();
if ( '' === trim( $out ) ) {
$problems[] = 'rendered nothing';
}
if ( false !== stripos( $out, 'not allowed to access' ) ) {
$problems[] = 'rendered the not-allowed message';
}
if ( false !== stripos( $out, 'critical error' ) || false !== stripos( $out, 'Fatal error' ) ) {
$problems[] = 'rendered an error';
}
if ( $notices ) {
$problems[] = count( $notices ) . ' PHP notice(s): ' . implode( ' | ', array_slice( $notices, 0, 3 ) );
}
if ( $problems ) {
bwlai_fail( "$label: " . implode( '; ', $problems ) );
} else {
bwlai_ok( sprintf( '%-19s rendered %6d bytes, no notices', $label, strlen( $out ) ) );
}
}
echo "\n== 3b. Each promoted page has its own content ==\n";
$must_contain = array(
'UTM Builder' => array( 'UTM Tracking Links', 'bw-lead-ai-utm-items', 'UTM Builder
' ),
'Help' => array( 'All available merge tags', '{bw:source_medium}', 'Help
' ),
'Reports→Journeys' => array( 'Visitor journeys', 'subsubsub', 'Reports
' ),
'Form Field Mapping' => array( 'Form Field Mapping', 'field_targets', 'bw-target-table' ),
// The Reports tab keeps a pointer to the checks and to any block it withheld —
// a tab that moved its own trustworthiness section away and said nothing would
// be silently confident, which is the one thing this plugin must not be.
'Reports' => array( 'Break leads down by:', 'view=quality' ),
// Every check, whether it fired or not, plus the sentence that makes an empty
// result mean something.
'Reports→Data Quality' => array( 'Can you trust these numbers?', 'Unresolved placeholders in the tracking tags', 'bw-quality-table', 'Clear' ),
'Reports→AI Analysis' => array( 'AI Analysis', 'Paste this into your AI assistant', 'data-ai-package', 'action=bw_lead_ai_ai_export' ),
// An unrecognised view is the aggregate report, not a blank page.
'Reports→bogus view' => array( 'Break leads down by:' ),
'Other Settings' => array( 'Export and import settings', 'Factory reset', 'bw_lead_ai_settings_export', 'bw_lead_ai_settings_import', 'bw_lead_ai_settings_reset', 'Type RESET to confirm' ),
);
foreach ( $must_contain as $label => $needles ) {
$out = isset( $html[ $label ] ) ? $html[ $label ] : '';
$miss = array();
foreach ( $needles as $needle ) {
if ( false === strpos( $out, $needle ) ) {
$miss[] = $needle;
}
}
if ( $miss ) {
bwlai_fail( "$label: missing " . implode( ' , ', $miss ) );
} else {
bwlai_ok( "$label: content present" );
}
}
echo "\n== 4. The Reports tab strip ==\n";
/*
* wp-admin's nav-tab strip, the same control the settings page uses — four tabs,
* exactly one lit, and every tab carrying the window / credit / dimension so a trip
* to Data Quality and back does not reset the report somebody had set up.
*/
$tab_labels = array( 'Reports', 'Data Quality', 'AI Analysis', 'Journeys' );
$expected = array(
'Reports' => 'Reports',
'Reports→Data Quality' => 'Data Quality',
'Reports→AI Analysis' => 'AI Analysis',
'Reports→Journeys' => 'Journeys',
'Reports→bogus view' => 'Reports',
);
foreach ( $expected as $label => $lit_label ) {
$out = $html[ $label ];
if ( false === strpos( $out, 'nav-tab-wrapper bw-report-tabs' ) ) {
bwlai_fail( "$label: no tab strip" );
continue;
}
$problems = array();
foreach ( $tab_labels as $tab ) {
if ( false === strpos( $out, '>' . $tab . '' ) ) {
$problems[] = "missing the $tab tab";
}
}
// Exactly one active tab, and it is the right one.
$active = preg_match_all( '/class="nav-tab nav-tab-active" href="[^"]*">([^<]+)<\/a>/', $out, $am );
if ( 1 !== $active ) {
$problems[] = "$active tabs are lit, expected 1";
} elseif ( $am[1][0] !== $lit_label ) {
$problems[] = 'the lit tab is ' . $am[1][0] . ', expected ' . $lit_label;
}
if ( $problems ) {
bwlai_fail( "$label: " . implode( '; ', $problems ) );
} else {
bwlai_ok( sprintf( '%-38s four tabs, "%s" lit', $label, $lit_label ) );
}
}
// The three axes must survive a tab change, or a reader who set the report up and
// went to check its data quality comes back to the default view.
$carried = $html['Reports→quality, 90 days, first click, mediums'];
$axes = array( 'range=90', 'attribution=first', 'grouping=medium' );
$missing = array();
foreach ( $axes as $axis ) {
// html entities: add_query_arg output is escaped with & between args.
if ( false === strpos( $carried, $axis ) ) {
$missing[] = $axis;
}
}
if ( $missing ) {
bwlai_fail( 'the Data Quality tab drops ' . implode( ' , ', $missing ) . ' from its links' );
} else {
bwlai_ok( 'window, credit mode and dimension all survive on the Data Quality tab\'s links' );
}
// ...and the range pills on that tab must keep you on that tab.
if ( preg_match_all( '/href="[^"]*page=' . preg_quote( BW_Lead_AI_Admin::REPORTS_SLUG, '/' ) . '[^"]*range=(?:7|365)[^"]*"/', $carried, $rm ) ) {
$stray = array();
foreach ( $rm[0] as $href ) {
if ( false === strpos( $href, 'view=quality' ) ) {
$stray[] = $href;
}
}
if ( $stray ) {
bwlai_fail( 'range pills on the Data Quality tab leave it: ' . implode( ' , ', array_slice( $stray, 0, 2 ) ) );
} else {
bwlai_ok( 'range pills on the Data Quality tab stay on the Data Quality tab' );
}
} else {
bwlai_fail( 'no range pills rendered on the Data Quality tab' );
}
// The journeys list's own links must all carry the view, or the first click walks
// you out. The tab strip is meant to leave, so it is removed before counting rather
// than allowed for by a magic number that drifts every time a tab is added.
$j = preg_replace( '/.*?<\/h2>/s', '', $html['Reports→Journeys'] );
$leaks = preg_match_all( '/page=' . preg_quote( BW_Lead_AI_Admin::REPORTS_SLUG, '/' ) . '(?![^"\']*view=journeys)[^"\']*/', $j, $m );
if ( ! $leaks ) {
bwlai_ok( 'every journeys-list link outside the tab strip keeps view=journeys' );
} else {
bwlai_fail( 'journeys-list links that drop view=journeys: ' . implode( ' , ', array_slice( $m[0], 0, 4 ) ) );
}
echo "\n== 4b. The data-quality check register ==\n";
/*
* The register is the single source: the screen, the aggregate and the AI package
* all read it. Two things can break that, and neither is visible to a lint — an
* entry with no detector (which would silently always read "clear"), and the
* evaluated result carrying a different set of keys from the declaration.
*/
$register = BW_Lead_AI_Reports::quality_checks();
if ( count( $register ) >= 6 ) {
bwlai_ok( 'register declares ' . count( $register ) . ' checks' );
} else {
bwlai_fail( 'register has only ' . count( $register ) . ' checks' );
}
foreach ( $register as $key => $meta ) {
$problems = array();
if ( ! is_callable( array( 'BW_Lead_AI_Reports', 'quality_' . $key ) ) ) {
$problems[] = "no detector BW_Lead_AI_Reports::quality_$key()";
}
if ( empty( $meta['label'] ) ) {
$problems[] = 'no label';
}
if ( empty( $meta['watches'] ) || strlen( $meta['watches'] ) < 40 ) {
$problems[] = 'no usable "what this looks for" description';
}
if ( $problems ) {
bwlai_fail( "check '$key': " . implode( '; ', $problems ) );
} else {
bwlai_ok( sprintf( "check %-20s declared, described and detectable", "'$key'" ) );
}
}
$built = BW_Lead_AI_Reports::build( '30', 'last', 'groups' );
if ( array_keys( $built['quality_checks'] ) === array_keys( $register ) ) {
bwlai_ok( 'the evaluated result carries exactly the register\'s keys, in order' );
} else {
bwlai_fail(
'register/result mismatch: register=' . implode( ',', array_keys( $register ) )
. ' result=' . implode( ',', array_keys( $built['quality_checks'] ) )
);
}
// The findings-only list the AI package reads must be derivable from the register
// alone — same keys, same counts — or the two screens can disagree.
$derived = array();
foreach ( $built['quality_checks'] as $key => $check ) {
if ( ! empty( $check['fired'] ) ) {
$derived[ $key ] = (int) $check['count'];
}
}
$reported = array();
foreach ( $built['quality'] as $finding ) {
$reported[ $finding['key'] ] = (int) $finding['count'];
}
ksort( $derived );
ksort( $reported );
if ( $derived === $reported ) {
bwlai_ok( 'findings list and register agree exactly (' . count( $derived ) . ' firing)' );
} else {
bwlai_fail( 'findings list disagrees with the register: ' . wp_json_encode( array( $derived, $reported ) ) );
}
// The Reports tab must keep a pointer to all of this. Conditional on the page
// actually drawing its blocks: below the sparse floor it says so and stops, and
// there is nothing there for a trustworthiness note to be about.
$leads_30 = (int) $built['totals']['leads'];
echo " leads in the default window: $leads_30\n";
if ( $leads_30 >= BW_Lead_AI_Reports::SPARSE_LEADS ) {
$pointer = array( 'Can you trust these numbers?', 'Open Data Quality' );
$miss = array();
foreach ( $pointer as $needle ) {
if ( false === strpos( $html['Reports'], $needle ) ) {
$miss[] = $needle;
}
}
if ( $miss ) {
bwlai_fail( 'the Reports tab lost its data-quality pointer: missing ' . implode( ' , ', $miss ) );
} else {
bwlai_ok( 'the Reports tab still says whether you can trust it, and links to the checks' );
}
} else {
echo " (below the sparse floor, so the Reports tab draws no blocks and no pointer)\n";
}
echo "\n== 4c. Dismissing a finding ==\n";
/*
* Writes to its OWN option and restores it, so the settings option is untouched —
* which is the point of the dismissals living somewhere else in the first place.
*/
$dismiss_option = BW_Lead_AI_Reports::QUALITY_DISMISS_OPTION;
$dismiss_before = get_option( $dismiss_option, null );
$firing = array_keys( $derived );
$victim = $firing ? $firing[0] : 'no_channel';
$check = $built['quality_checks'][ $victim ];
BW_Lead_AI_Reports::quality_dismiss( $victim, (int) $check['count'], (int) $check['pct'], '30' );
$states = BW_Lead_AI_Reports::quality_with_dismissals( $built['quality_checks'] );
$after = $states[ $victim ];
if ( ! empty( $after['dismissal'] ) && (int) $after['dismissal']['pct'] === (int) $check['pct'] ) {
bwlai_ok( "'$victim' records the numbers it was dismissed at (" . (int) $check['pct'] . '%)' );
} else {
bwlai_fail( "'$victim' did not record its dismissal" );
}
$want = empty( $check['fired'] ) ? 'clear' : 'dismissed';
if ( $want === $after['state'] ) {
bwlai_ok( "'$victim' is now in state '$want' and STILL in the register (never removed)" );
} else {
bwlai_fail( "'$victim' state is '" . $after['state'] . "', expected '$want'" );
}
if ( isset( $states[ $victim ] ) && count( $states ) === count( $register ) ) {
bwlai_ok( 'a dismissed check is still one of the ' . count( $register ) . ' listed checks' );
} else {
bwlai_fail( 'dismissing removed a check from the register' );
}
// Worsening: the same check, five points bigger, must climb back out of dismissed.
$grown = $built['quality_checks'];
$grown[ $victim ]['fired'] = true;
$grown[ $victim ]['count'] = (int) $check['count'] + 100;
$grown[ $victim ]['pct'] = min( 100, (int) $check['pct'] + BW_Lead_AI_Reports::DISMISS_REGROWTH_POINTS );
$lapsed = BW_Lead_AI_Reports::quality_with_dismissals( $grown );
if ( 'lapsed' === $lapsed[ $victim ]['state'] ) {
bwlai_ok( 'a dismissed finding that grows by ' . BW_Lead_AI_Reports::DISMISS_REGROWTH_POINTS . ' points lapses back to a finding' );
} else {
bwlai_fail( 'a grown finding stayed dismissed (state ' . $lapsed[ $victim ]['state'] . ') — the screen would be hiding a worsening problem' );
}
if ( BW_Lead_AI_Reports::quality_needs_attention( $lapsed[ $victim ]['state'] ) ) {
bwlai_ok( 'a lapsed finding counts as needing attention again' );
} else {
bwlai_fail( 'a lapsed finding is not counted as needing attention' );
}
// Round trip.
BW_Lead_AI_Reports::quality_undismiss( $victim );
$restored = BW_Lead_AI_Reports::quality_with_dismissals( $built['quality_checks'] );
if ( null === $restored[ $victim ]['dismissal'] && $restored[ $victim ]['state'] === ( empty( $check['fired'] ) ? 'clear' : 'active' ) ) {
bwlai_ok( 'un-dismissing puts it back exactly as it was' );
} else {
bwlai_fail( 'un-dismiss did not round-trip' );
}
// A key that is not a check cannot get in.
BW_Lead_AI_Reports::quality_dismiss( 'not_a_check', 5, 5, '30' );
BW_Lead_AI_Reports::quality_dismiss( '