<commit_before>#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id$

use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 23;


=head1 NAME

t/op/basic.t - Basic Ops

=head1 SYNOPSIS

        % prove t/op/basic.t

=head1 DESCRIPTION

Tests basic string and branching operations.

=cut


# It would be very embarrassing if these didnt work...
pasm_output_is(<<'CODE', '', "noop, end");
        noop
        end
CODE

pasm_output_is(<<'CODE', '1', "print 1");
        print   1
        end
CODE

pasm_output_is(<<'CODE', 'Parrot flies', "print string");
        print 'Parrot flies'
        end
CODE

pasm_output_is(<<'CODE', 'Parrot flies', "print double-quoted string");
       print "Parrot flies"
       end
CODE

pasm_output_is(<<'CODE', 'Parrot        flies', "print double-quoted string, tabs");
       print "Parrot\tflies"
       end<commit_msg>Tab removal is usually good, except when it breaks a basic test.<commit_after>#!perl
# Copyright (C) 2001-2005, The Perl Foundation.
# $Id$

use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
use Test::More;
use Parrot::Test tests => 23;


=head1 NAME

t/op/basic.t - Basic Ops

=head1 SYNOPSIS

        % prove t/op/basic.t

=head1 DESCRIPTION

Tests basic string and branching operations.

=cut


# It would be very embarrassing if these didnt work...
pasm_output_is(<<'CODE', '', "noop, end");
        noop
        end
CODE

pasm_output_is(<<'CODE', '1', "print 1");
        print   1
        end
CODE

pasm_output_is(<<'CODE', 'Parrot flies', "print string");
        print 'Parrot flies'
        end
CODE

pasm_output_is(<<'CODE', 'Parrot flies', "print double-quoted string");
       print "Parrot flies"
       end
CODE

pasm_output_is(<<'CODE', "Parrot\tflies", "print double-quoted string, tabs");
       print "Parrot\tflies"
       end
{'fraction_non_alphanumeric': 0.1404164442071543, 'fraction_numerical': 0.017084890549919914, 'mean_word_length': 2.887966804979253, 'pattern_counts': {'":': 0, '<': 23, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3568937', 'n_tokens_mistral': 693, 'n_tokens_neox': 637, 'n_words': 201}