package SptTgtCfg;

use strict;

$| = 1;

require 5.6.1;

%SptTgtCfg::Max_Num_Can_Network_Interface = (
    "GHS NECV850ESFX3"            => 5,
    "GHS NECV850ESFE3 F3370A"    => 1,
    "GHS NECV850ESFK3 F3384"       => 5,
    "GHS NECV850ESFK3 F3385"       => 5,    
);

%SptTgtCfg::Max_Num_Lin_Network_Interface =(
    "GHS NECV850ESFX3"           => 8,
    "GHS NECV850ESFE3 F3370A"    => 2,
    "GHS NECV850ESFE3 F3371"       => 2,
    "GHS NECV850ESFK3 F3385"       => 8,    
  );



%SptTgtCfg::Max_Num_Of_Interest_Mask =
(
  CAN11 => 4,
  CAN29 => 4
);


$SptTgtCfg::Is_Lin_Supported = $TRUE;

%SptTgtCfg::Controller_Lookup_Hash =
(
  FCAN    =>
  {
    Protocol  => "CAN",
  },
  UARTD       =>
  {
    Protocol  => "LIN",
  },
);

sub ccheck_tgt_repeated_base_address
{
  my ($base, $ni_name);
  my (%base_address);

  foreach $ni_name (@SptIm::Ni_Names)
  {
    $base = $SptTgtParser::Target_File_Contents_Hash{NetInterfaceDef}
      {$ni_name}{Base};

    if (exists($base_address{$base}))
    {
      &SptUtils::ui_err(3, "Network interface <$ni_name> has same base
+ "
        . "address as the base address of the other network interface.
+");
      next;
    }

    $base_address{$base} = $ni_name;
    next;
  }
} # End of subroutine ccheck_tgt_repeated_base_address

1;

[download]

Hi Monks

This is one local package created, i need to test the elements in that package are defined and valid values using "Test::More module.

I gone thorugh the module, but i am unable to check with my package

Please help me to test my package

In reply to Testing Perl Package by nlalitha

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.