features/graph/output-file.feature features/metrics/list.feature features/metrics/output-file.feature @@ -86,6 +86,13 @@ setup your source tree in order to use the GCC extractor. extractor.type: string, extractor =~ /\A\w+\Z/ extractor.default: 'Doxyparse' +=item --output <file> + +Use a file as output + +=for Euclid: + file.type: writeable + =item --help Displays help on command line syntax and options. @@ -190,6 +197,9 @@ $output->cluster($ARGV{'--cluster'}); $output->group_by_module($ARGV{'--modules'}); $extractor->process(@{$ARGV{'<input>'}}); + +open STDOUT, '>', $ARGV{'--output'} if $ARGV{'--output'}; print $output->string; +close STDOUT; exit(0); egypt-graph @@ -52,10 +52,13 @@ Tells egypt which source code directory(ies) you want to parse. =for Euclid: input.type: readable -=item --file <file> +=item --output <file> Use a file as output +=for Euclid: + file.type: writeable + =back =head1 OUTPUT FORMAT @@ -90,20 +93,13 @@ if($ARGV{'<input>'} =~ /^\s*$/){ exit(0); } -if($ARGV{'--file'}){ - open (OUTPUT, ">>$ARGV{'--file'}") or die "Can't open file\n"; -} -else{ - open (OUTPUT, ">&STDOUT"); -} - my $extractor = Egypt::Extractor->load($ARGV{'--extractor'}); my $metrics = Egypt::Metrics->new(model => $extractor->model); $extractor->process(@{$ARGV{'<input>'}}); -print OUTPUT $metrics->report; -close(OUTPUT); +open STDOUT, '>', $ARGV{'--output'} if $ARGV{'--output'}; +print $metrics->report; +close STDOUT; exit(0); - egypt-metrics @@ -12,6 +12,7 @@ end After do FileUtils.rm_f('tmp.out') FileUtils.rm_f('tmp.err') + FileUtils.rm_f(Dir.glob('*.tmp')) FileUtils.cd(saved_dir) ENV['PATH'] = saved_path ENV['PERL5LIB'] = saved_perl5lib @@ -43,6 +44,10 @@ Then /^the exit status must be (.+)$/ do |n| @exit_status.should == n.to_i end +Then /^the exit status must not be (.+)$/ do |n| + @exit_status.should_not == n.to_i +end + Then /^egypt must report that "([^\"]*)" is part of "([^\"]*)"$/ do |func,mod| line = (0...(@stdout.size)).find { |i| @stdout[i] =~ /subgraph "cluster_#{mod}"/ } found = false @@ -69,6 +74,13 @@ Then /^the output must not match "([^\"]*)"$/ do |pattern| @stdout.select { |item| item.match(pattern) }.should have(0).items end +Then /^the output from "(.+)" must match "([^\"]*)"$/ do |file, pattern| + @out = File.readlines(file) + if @out.select {|item| item.match(pattern)}.size == 0 + raise OutputDoesNotMatch.new(@out, @stderr) + end +end + Then /^egypt must emit a warning matching "([^\"]*)"$/ do |pattern| @stderr.select {|item| item.match(pattern)}.should have_at_least(1).items end features/step_definitions/egypt_steps.rb features/metrics.feature 67ad2e0f94d8fa814ebe92e6397d21d1a0729e7a Joenio Costa joenio@perl.org.br http://github.com/terceiro/egypt/commit/fba75fbe35d4716f67a0f858c63e6ca948e11130 fba75fbe35d4716f67a0f858c63e6ca948e11130 2009-10-15T19:54:40-07:00 2009-10-15T13:03:20-07:00 Command line argument for output file e57379a8c99412227d4f3c329839d6689f530317 Antonio Terceiro terceiro@softwarelivre.org