Merge pull request #18 from movabletype/fix-disable-by-freq

Disable profiling by "PerformanceProfilerFrequency 0"

Author: usualoma

addons/PerformanceProfiler.pack/lib/MT/Plugin/PerformanceProfiler.pm

@@ -34,7 +34,7 @@ sub path {
 }
 
 sub enabled {
-    return !!path();
+    return !!path() && $freq && $freq > 0;
 }
 
 sub tmp_file_name {

addons/PerformanceProfiler.pack/t/05-disabled-by-frequency.t

@@ -0,0 +1,64 @@
+use strict;
+use warnings;
+use FindBin;
+use Cwd;
+
+use lib Cwd::realpath("./t/lib"), "$FindBin::Bin/lib";
+use Test::More;
+use Test::Deep;
+use File::Spec;
+use File::Temp qw( tempdir );
+use MT::Test::Env;
+
+our $test_env;
+our $profiler_path;
+
+BEGIN {
+    $profiler_path = tempdir( CLEANUP => 1 );
+    $test_env      = MT::Test::Env->new(
+        PerformanceProfilerPath      => $profiler_path,
+        PerformanceProfilerFrequency => 0,
+        PluginPath                   => [ Cwd::realpath("$FindBin::Bin/../../../addons") ],
+    );
+
+    $ENV{MT_APP}    = 'MT::App::CMS';
+    $ENV{MT_CONFIG} = $test_env->config_file;
+}
+
+use MT;
+use MT::Test;
+use MT::Test::Fixture;
+use MT::Test::Permission;
+use MT::Association;
+
+MT::Test->init_app;
+
+$test_env->prepare_fixture('db');
+
+my $blog1_name = 'PerformanceProfiler-' . time();
+my $super      = 'super';
+
+my $objs = MT::Test::Fixture->prepare(
+    {   author => [ { 'name' => $super }, ],
+        blog   => [ { name   => $blog1_name, }, ],
+        entry  => [
+            map {
+                my $name = 'PerformanceProfilerEntry-' . $_ . time();
+                +{  basename    => $name,
+                    title       => $name,
+                    author      => $super,
+                    status      => 'publish',
+                    authored_on => '20190703121110',
+                    },
+            } ( 1 .. 10 )
+        ],
+    }
+);
+
+my $blog1 = MT->model('blog')->load( { name => $blog1_name } ) or die;
+
+MT->instance->rebuild_indexes( Blog => $blog1 );
+my @profiles_for_index = glob( File::Spec->catfile( $profiler_path, '*' ) );
+is scalar(@profiles_for_index), 0;
+
+done_testing;